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ABSTRACT 


This  research  deals  with  the  problem  of  extracting  features  from  an  image  using 
wavelets  and  then  using  these  features  to  recognize  objects  present  in  the  image.  This 
technique  is  applied  to  recognition  of  Unexploded  Ordnance  (UXO)  objects.  However, 
the  concepts  described  here  can  be  extended  to  recognition  of  other  objects  such  as 
ships,  missiles  and  aircrafts. 

This  work  is  performed  as  part  of  an  ongoing  effort  to  develop  an  autonomous 
vehicle  capable  of  detecting  UXOs. 
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I.  INTRODUCTION 

A.  BACKGROUND 

Modern  warfare,  as  well  as  modern  life,  requires  reliable  and  quick  responding 
systems.  To  fulfill  this  need,  autonomous  systems  capable  of  doing  risky  tasks  have 
been  a  goal  for  decades.  In  practice,  we  are  far  from  reaching  this  goal,  but  we  have 
been  slowly  substituting  machine  systems  for  human  operators  in  many  activities, 
which  has  freed  personnel  from  dangerous,  boring  and  repetitive  tasks. 

Image  recognition  and  localization  is  an  important  aspect  of  automation.  It  is 
a  complex  task  with  no  general  solution  and  has  been  used  lately  in  many  industrial 
and  military  applications.  Recognition  and  localization  are  intimately  related  since 
we  need  to  locate  an  object  before  being  able  to  identify  (recognize)  it.  In  other 
words,  we  can  not  identify  an  object  without  knowing  its  location,  but  the  reverse 
can  be  true. 

In  this  thesis,  wavelets  and  neural  networks  are  used  for  object  recognition. 
Features  of  objects  are  extracted  in  the  wavelet  domain  and  then  a  neural  network  is 
trained  to  recognize  objects  from  these  features. 

One  of  the  applications  of  the  object  recognition  techniques  is  localization 
and/or  identification  of  UXOs  (Unexploded  Ordnances).  Detection  of  UXOs  either 
during  war  or  peace  time  is  extremely  dangerous.  An  autonomous  system  capable  of 
substituting  personnel  in  this  task  is  highly  desirable.  This  UXO  recognition  system 
can  be  applied  to  both  battlefield  strategic  missions  as  well  as  cleanup  of  old  battlefield 
sites.  Figure  1  shows  a  typical  UXO  object.  These  objects  are  complex  and  hence 
challenging  to  recognize.  The  concepts  presented  in  this  thesis  can  also  be  used  with 
other  kind  of  sensor  data  such  as  magnetometer  and  infrared  readings. 
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Figure  1.  Typical  UXO. 


B.  THESIS  OUTLINE 

The  remaining  chapters  of  this  thesis  deal  with  our  subject  matter  in  the  fol¬ 
lowing  way.  Chapter  II  gives  a  brief  introduction  to  Neural  Networks  (NN)  and  the 
back-propagation  learning  method  used  to  train  them.  In  Chapter  III,  we  discuss  a 
classification  system  based  on  segmentation  oriented  geometric  features  and  their  use 
in  a  NN  system  for  processing  generic  scenes.  This  chapter  is  to  serve  as  an  intro¬ 
duction  to  Object  Recognition  and  to  illustrate  the  usefulness  of  neural  networks  in 
detecting  non-UXO  objects.  The  geometric  feature  approach  used  in  this  chapter  is 
based  on  the  feature  extraction  algorithm  in  reference  1.  Next,  in  Chapter  IV,  we 
discuss  our  UXO  recognition  system,  as  well  as  present  experimental  results.  This 
system  uses  a  wavelet  based  approach.  This  work  will  appear  in  reference  2  and 
is  an  extension  of  previous  work  described  in  reference  3.  It  capitalizes  upon  the 
multi-resolution  nature  of  the  wavelet  domain  to  extract  a  set  of  features  which  is 
compact  and  yet  sufficiently  describes  an  object.  Since  this  UXO  detection  system. 


or  a  derivation  of  it,  is  intended  to  be  integrated  on  Professor  Kanayama’s  “Rotary” 
autonomous  robot,  we  present  modifications  to  the  robot’s  motion  control  and  navi¬ 
gation  systems  in  Chapter  V.  Specifically,  we  discuss  detection  of  edge  landmarks,  3D 
modeling  and  neutral  switching  [Ref.  4,  5,  6].  Figure  2  shows  a  picture  of  the  robot, 
also  known  by  its  nickname  “Shepard.”  Finally,  Chapter  VI  concludes  this  work. 


Figure  2.  “Shepard” 
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II.  NEURAL  NETWORKS 


A.  INTRODUCTION 

Generally  the  methods  for  pattern  recognition  may  be  classified  as  follows: 

•  Statistical  pattern  recognition  techniques. 

•  Structural  pattern  recognition  techniques. 

•  Hybrid  techniques  -  Neural  networks. 

Neural  networks  approach  has  attracted  considerable  interest  in  recent  years  [Ref. 
7].  It  has  been  proved  that  a  neural  network  can  represent  any  continuous  function 
with  a  defined  degree  of  precision  [Ref.  8].  As  such,  NN  are  ideal  vehicles  for  signal 
representation  and  hence  recognition. 

Initially  inspired  by  biological  nervous  system,  a  neural  network  consists  of 
many  interconnected  neurons  or  processing  elements  (PEs)  [Ref.  7],  with  similar 
characteristics,  such  as  inputs,  synaptic  strengths,  activations,  outputs  and  biases. 
Each  PE  receives  inputs  from  the  preceding  PEs  and  generates  a  scalar  output.  The 
first  layer  is  called  the  input  layer,  the  final  layer  is  called  the  output  layer  and  the 
middle  layers  are  called  hidden  layers. 

Figure  3  shows  a  basic  model  of  a  neuron  [Ref.  9],  where  the  non-linear 
function  g,  most  commonly  used,  is  the  sigmoid: 

and  the  output  is: 

n 

output  =  Wjinputi  +  wsBias^.  (II-2) 

j=i 

The  “bias  term”  is  used  to  fine  tune  the  output  of  the  node.  In  our  research 
we  do  not  use  it,  since  the  back-propagation  training  algorithm  (given  in  the  next 
section) ,  finds  the  right  weights  for  each  node  without  the  need  of  the  bias  term  [Ref. 
10]. 
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Figure  4  presents  a  three-layer  NN,  where  all  nodes  (represented  by  the  circles), 
except  the  input  nodes,  have  the  same  characteristics  as  the  dashed  circle  in  Figure  3. 
Note  that  the  input  nodes  are  just  a  pass-through  for  the  input  signal.  This  is  the 
reason  why,  some  authors  do  not  count  them  when  defining  the  number  of  layers  in 
a  NN.  However,  in  this  thesis,  it  will  be  to  counted  as  a  layer.  In  Figure  4,  /j  is 
the  input  for  input-node  i.  Hi  is  the  output  from  hidden-node  i,  Oi  is  the  output 
from  output-node  i  (desired),  wnj  is  the  weight  for  the  connection  between  input- 
node  i  and  hidden-node  j  and  lastly,  wjnj  is  the  weight  for  the  connection  between 
hidden-node  i  and  output-node  j. 

For  a  generic  three-layer  NN  we  have 


nj 

Hi  =  g{j^wjijlj^  (II.3) 

j=i 

UH 

Oi  =  l<i<no.  (11.4) 

j=i 

Here  nj  is  the  number  of  input  nodes,  uh  is  the  number  of  hidden  nodes  and  no  is 
the  number  of  output  nodes.  In  Figure  4,  we  have  their  values  respectively  equal  to 
3,  3  and  2. 

B.  TRAINING:  BACK-PROPAGATION  LEARNING  AL¬ 
GORITHM 

Training  a  NN  refers  to  presenting  training  data  (consisting  of  input  and  cor¬ 
responding  output  values)  to  the  system  so  that  it  learns  the  best  set  of  weights  to 
produce,  given  the  input  data,  the  correct  output.  Once  trained,  a  NN  produces  an 
output  performing  only  a  series  of  simple  calculations  as  shown  in  Equation  II. 2.  This 
feature  makes  NNs  attractive.  Back-propagation  is  a  learning  method  developed  in 
the  mid-1980s  by  David  Rumelhart  [Ref.  11],  and  is  based  on  finding  the  outputs  at 
the  last  or  output  layer  and  calculating  the  errors  or  differences  between  the  desired 
and  the  current  outputs. 
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These  errors  are  then  fed  into  the  neural  network  in  reverse  order.  This  “back¬ 
ward”  feeding  of  information  from  the  output  PEs  to  the  input  PEs  is  where  back- 
propagation  gets  its  name  from.  Thus,  we  must  take  a  differential  of  the  output  and 
hence  of  g{x).  Because  of  the  simple  form  of  its  differential,  the  sigmoid  function  is 
commonly  used  as  g{x).  The  differential  when  g{x)  equals  to  the  sigmoid  is: 

5'(a;)  =  ^^  =  p(a:)(l-^(a;)).  (IL5) 

More  specifically,  what  we  do  is  make  a  change  in  the  weights  at  each  level 
as  a  function  of  the  error  and  then  (backward)  propagate  this  error  up  the  NN.  The 
weights  at  the  last  layer  are  adjusted  using  the  following  formula: 


^WHij  =  ^EojHi^  (II-6) 

new  wmj  =  wmj  +  (II-7) 

where  /3  =  learning  rate  (0  <  /?  <  1)  and  Eoj  is  the  given  by, 

Eoj  =  Oj  -  O',  (II.8) 

where  O'  is  the  calculated  output  at  the  output-node  j  and  Oj  is  the  desired  output. 

For  the  hidden  layer  we  need  to  calculate  the  error  at  this  layer  first.  This 
is  done,  by  calculating  the  “propagated  error”  from  the  output  to  the  hidden  nodes. 
The  error  for  the  hidden  node  i  is  given  by, 

no 

Em  =  {Yl^ijEoj)g'{Hi).  (II.9) 

j=i 

Having  computed  the  error  at  the  hidden  nodes,  the  updated  weights  of  the  input 
layer  are  given  by  the  following  equations: 

Awjij  =  PEffjli,  (II.  10) 

new  wjij  =  wiij  +  Awiij.  (II- 11) 


This  process  is  done  repeatedly  until  we  have  a  small  enough  error  for  our 
output  nodes.  In  our  NN,  the  global  error  is  calculated  as 

VeJSi  (Oi  -  o;)2 


GE 


no 


(11.12) 
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In  our  studies,  /?  is  linearly  varied  between  0.1  and  0.0009.  This  variation  will 
yield  a  faster  convergence  than  a  fixed  /5.  [Ref.  9,  10,  12]  are  excellent  resources  for 
more  details  about  NN. 

We  implemented  a  Lisp  program,  listed  in  Appendix  A,  to  perform  the  training 
of  a  NN  using  back-propagation.  All  the  NNs  used  in  this  thesis  were  trained  with 
this  program. 

As  will  be  discussed  in  the  subsequent  chapters,  three-layer  NNs,  trained  with 
the  back-propagation  learning  algorithm,  are  used  in  our  UXO  detection  system. 
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III.  OBJECT  RECOGNITION  USING 
GEOMETRIC  FEATURES 

A.  INTRODUCTION 

A  computer  vision  system  [Ref.  1],  that  divides  an  image  into  regions  with 
homogeneous  characteristics  is  proposed  for  the  purpose  of  classification  and  object 
recognition.  This  process  is  referred  to  as  segmentation  and  extracts  segments  of  the 
scene  as  features.  The  idea  behind  this  technique  is  that  these  features  represent  the 
image  information  more  compactly.  The  process  of  feature  extraction  is  an  important 
one  in  computer  vision  and  is  addressed  in  Chapter  4  with  regards  to  UXO  detection. 
This  chapter  focuses  on  one  technique  for  feature  extraction  and  illustrates  that  the 
feature-based  object  recognition  system  can  be  used  for  recognition  of  generic  pictures. 

1.  Feature  Extraction  Algorithm 

To  divide  a  picture  into  regions  of  homogeneous  characteristics,  the  system  in 
[Ref.  1]  goes  through  the  following  steps: 

1.  Image  averaging  of  each  four-cell  square  to  compensate  dithering. 

2.  Color  gradient  thresholding. 

3.  Clumping  of  the  results  using  pixel  regions. 

4.  Compute  the  25  statistical  property,  listed  in  Table  I. 

•  Dimensions  (statistics  B-H  and  U)  are  measured  in  number  of  pixels. 

•  Brightness  (statistics  K-Q  and  T)  are  computed  with  a  0-255  gray  scale 
for  each  color. 

•  Skews  (statistics  I  and  J)  are  proportional  to  the  size  of  the  box. 

•  Diagonality  (statistics  V)  is  a  fraction  of  the  boundary  length. 

•  Curviness  (statistics  W)  is  in  radians. 

•  Correlations  (statistics  R  and  S)  runs  from  —1  to  1. 

•  Counts  (statistics  X  and  Y)  are  unadjusted. 

5.  Merge  single-cell  regions  into  their  neighboring  regions  in  a  best-first  approach. 
Regions  properties  were  updated  with  each  merge. 
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6.  A  final  merging  was  then  done  utilizing  a  weighted  sum  of  three  factors 
(average  color  difference  between  the  regions,  the  absolute  difference  in  the 
neighbor-brightness  variation  over  the  regions  and  the  weighted  decrease  in 
density  of  the  bounding  boxes)  to  rank  the  regions. 

In  Figure  6  we  can  see  an  example  of  the  output  from  the  feature  extraction 
program  [Ref.  1],  for  the  input  figure  shown  in  Figure  5. 
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CODE 

Explanation 

A 

region  number 

B 

area  in  pixels 

C 

circumference  in  pixels 

D 

number  of  picture-boundary  pixels 

E 

minimum  x-co  ordinate 

F 

minimum  y-coordinate 

G 

maximum  x-co  ordinate 

H 

maximum  y-coordinate 

I 

x-skew  of  center  of  mass  from  box  center 

J 

y-skew  of  center  of  mass  from  box  center 

K 

average  red  brightness 

L 

average  green  brightness 

M 

average  blue  brightness 

N 

standard  deviation  of  red  brightness 

0 

standard  deviation  of  green  brightness 

P 

standard  deviation  of  blue  brightness 

Q 

average  brightness  variation  between  adjacent  cells 

R 

correlation  of  brightness  with  increasing  x 

S 

correlation  of  brightness  with  increasing  y 

T 

average  strength  of  the  region  edge 

U 

smoothed-boundary  length 

V 

smoothed-boundary  diagonality 

w 

smoothed-boundary  curviness 

X 

smoothed-boundary  number  of  inflection  points 

Y 

smoothed-boundary  number  of  right  angles 

z 

whether  boundary  is  opened  or  closed 

Table  I.  The  26  Basic  Region  Statistics  and  Their  Codes. 
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Figure  5.  Original  Picture. 
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Figure  6.  Output  from  the  Feature  Extraction  Program. 


14 


2.  Neural  Network 

The  features  extracted  from  the  system  in  [Ref.  1]  are  used  in  a  NN  developed 
in  Prolog  (Appendix  B),  for  recognition  of  segments  (part  of  objects)  in  visual  data. 
Again,  this  is  to  illustrate  the  potential  usefulness  of  such  a  system  for  application 
to  UXO  detection.  The  UXO  system  is  described  in  the  next  chapter.  At  first,  we 
used  18  classes  of  possible  objects,  due  to  the  difficulties  in  training,  this  number  was 
dropped  to  14  classes. 

From  the  26  elements  in  Table  I  15  features  were  calculated  using  only  20  of  the 
elements  (Table  II).  The  constant  dividends  observed  in  Table  II  were  experimentally 
measured  as  the  maximum  observed  values.  Consequently  the  neural  network  had  15 
input  nodes,  15  hidden  nodes  and  4  output  nodes.  Fifty  one  training  images  were 
presented  to  the  NN  system.  A  prolog  program  reads  the  shapes  from  a  file  and  gives 
the  inputs  to  the  neural  net.  A  lisp  implementation  of  back  propagation  was  run  and 
the  best  result  for  the  weights  gave  a  33%  of  success  rate  when  ran  over  the  same  set 
used  to  train  the  net. 

The  same  prolog  program,  with  the  right  weights,  gives  as  output  a  list  with 
as  many  terms  as  the  number  of  inputs.  Each  element  of  the  list  contains  the  input 
number  and  a  sequence  of  four  numbers  (0  and  1)  that  comprise  a  binary  representing 
the  class  of  the  input,  as  shown  in  Table  III. 

After  dividing  the  last  three  inputs  (size  dependent)  by  the  area  in  pixels,  the 
NN  was  able  to  be  trained  with  a  100%  of  success  rate  over  the  training  set. 

Using  the  resulting  weights,  we  were  able  to  put  the  excluded  classes  (18 
classes)  back  and  still  get  good  results  (100%  over  the  training  set).  The  final  classes 
used  are  listed  in  Table  IV. 

To  test  the  system,  we  extracted  features  from  Figure  7,  resulting  in  the  23 
regions  presented  in  Figure  8  and  listed  in  Appendix  C.  From  these  23  regions,  11  were 
used  to  train  the  NN.  Running  the  recognition  system  on  the  12  remaining  regions, 
it  was  able  to  identify  4  of  them  properly  (33%). 
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Table  II.  The  15  Input  Values  for  the  Neural  Network. 
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CLASS 

BINARY 

Undefined 

(0000) 

Hair 

(0001) 

Building 

(0010) 

Leg 

(0011) 

Concrete  floor 

(0100) 

Airplane 

(0101) 

Shadow 

(0110) 

Pole 

(0111) 

Sand 

(1000) 

Vegetation 

(1001) 

Pavement 

(1100) 

Cloud 

(1101) 

Sky 

(1110) 

Face 

(1111) 

Table  III.  The  14  Class  Types. 


B.  RESULTS 

To  correctly  identify  different  objects  is  a  difficult  problem.  One  problem  of  the 
vision  system  described  in  this  chapter  is  that  it  is  slow  because  the  segmentation  is 
a  time  consuming  task  [Ref.  1].  As  it  takes  a  long  time  to  run,  it  is  almost  impossible 
to  make  experimental  trials  to  find  the  best  threshold,  a  parameter  needed  by  the 
system,  for  each  picture. 

Normalizing  the  last  five  inputs  by  the  area  of  the  regions  (in  pixels)  improved 
the  results  by  a  factor  of  2.5.  This  basically  produced  a  kind  of  scale  invariance.  The 
NN  was  able  to  find  a  correlation  between  same  classes  of  different  sizes  and  converge 
to  a  reasonable  result. 

Before  those  five  inputs  were  normalized,  the  trained  NN  was  able  to  success¬ 
fully  identify  only  33%  of  the  regions  (classes)  used  in  the  training  set.  However, 
using  the  normalization  described  above,  we  recognized  correctly  100%  of  the  train¬ 
ing  set  and  33%  of  the  segments  in  a  image  not  present  in  the  training  set.  Even  with 
the  extreme  complexity  of  the  natural  scene,  we  are  able  to  obtain  useful  recognition 
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Figure  7.  Original  Picture. 
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Figure  8.  Output  from  the  Feature  Extraction  Program. 
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CLASS 

BINARY 

Undefined 

(10000) 

Hair 

(10001) 

Building 

(10010) 

Leg 

(10011) 

Concrete  floor 

(10100) 

Airplane 

(10101) 

Shadow 

(10110) 

Pole 

(10111) 

Sand 

(11000) 

Vegetation 

(11001) 

Hourse 

(11010) 

Body 

(11011) 

Pavement 

(11100) 

Cloud 

(11101) 

Sky 

(11110) 

Face 

(mil) 

Sky 

(OHIO) 

Face 

(01111) 

Table  IV.  The  18  Class  Types. 


results. 

This  suggests  along  with  the  vast  body  of  research  in  vision  that  image  object 
recognition  may  be  useful  in  UXO  detection.  In  the  next  chapter,  we  will  describe  our 
UXO  detection  system  that  utilizes  computer  vision  techniques  on  2D  photometric 
input  data. 
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IV.  OBJECT  RECOGNITION  USING 

WAVELETS 

A.  INTRODUCTION 

In  this  chapter  image  analysis  techniques  using  wavelets  are  examined  for  use 
in  the  recognition  of  Unexploded  Ordnances  (UXOs).  The  system  described  here 
capitalizes  upon  the  multi-dimensional  and  compact  nature  of  the  wavelet  domain  to 
perform  the  task  of  feature  extraction.  Subsequently,  Neural  Networks  are  used  with 
training  templates  for  recognition.  The  results  obtained  recommend  the  use  of  this 
system  on  a  mobile  platform  for  the  task  of  UXO  detection. 

The  application  of  UXO  detection  on  a  mobile  platform  allows  us  to  assume 
that  the  objects  presented  to  us  on  a  fixed  camera  platform  will  fall  in  a  small  range 
of  known  scale.  However,  the  objects  may  appear  in  any  aspect,  rotation  and  position 
in  the  scene. 

The  wavelet  domain  is  highly  suited  to  the  recognition  task  due  to  its  sparse 
yet  descriptive  qualities.  Some  of  our  previous  research  has  indicated  that  in  the  task 
of  localization,  an  optimal  level  of  decomposition  in  the  wavelet  space  can  be  chosen 
for  an  object  [Ref.  3].  Thus,  the  complexity  involved  in  recognition  can  be  reduced  by 
looking  in  this  level  of  the  multi-dimensional  wavelet  domain.  Note  that  at  this  level, 
many  of  the  key  features  are  retained  in  the  wavelet  domain.  The  feature  extrac¬ 
tion  phase  starts  by  finding  ’’special  points  of  interest”  at  the  chosen  decomposition 
level  and  then  calculating  a  set  of  features  at  each  point  including  relative  position, 
wavelet  values,  first  and  second  moments.  These  interest  points  correspond  roughly 
to  areas  of  strong  edge- type  features.  It  is  shown  that  these  features  are  effective  and 
reliable  when  used  in  a  Neural  Network  system  for  recognition.  An  attribute  of  using 
these  ’’points  of  interest”  is  that  the  information  extracted  for  each  point  represents 
relatively  local  information  about  the  object  and  when  taken  together  with  the  other 
points  gives  a  more  global  and  hopefully  distinctive  description  of  the  object  under 
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question. 

This  system  looks  at  using  such  local  point  features  rather  than  the  more 
global  features  of  segments  discussed  in  Chapter  3  because: 

•  It  is  faster  to  extract  these  feature. 

•  Exploitation  of  the  wavelet  domain,  suggests  the  use  of  edge  features  rather 
than  segments. 

•  Points  are  the  simplest  kind  of  features  we  can  extract  and  are  hence  a  good 
place  to  start  when  looking  at  the  application  of  a  feature  based  approach  to 
object  recognition. 

A  Neural  Network  is  trained  with  features  extracted  from  template  training 
data.  This  data  consists  of  samples  for  each  UXO  object  and  one  or  more  tem¬ 
plate  is  needed  for  each  aspect  and  rotation  combination  of  the  object.  Experiments 
have  indicated  that  small  changes  in  scale  should  not  affect  results.  A  simple  back 
propagation  algorithm  was  employed  for  training  the  NN. 

During  the  recognition  phase,  the  scene  is  converted  to  the  wavelet  domain 
and  at  the  pre-specified  decomposition  level  the  data  is  broken  up  into  a  series  of 
templates.  Each  template  is  run  through  the  Neural  Network  and  tested  for  the 
existence  of  UXO  objects.  The  results  are  promising  and  recommend  further  research 
as  well  as  the  possible  use  of  this  system  on  a  mobile  platform.  It  is  important  to 
note  that  the  techniques  described  are  not  limited  to  image  data  but,  could  also  be 
used  with  magnetometer  and  other  sensor  readings  for  UXO  detection.  This  suggests 
one  future  avenue  of  research  is  that  of  combining  different  sensor  data  as  input  to 
the  system. 

B.  WAVELETS 

Superposition  of  functions  to  describe  other  functions  has  been  used  since 
Fourier’s  work  in  1800’s.  In  the  mid-1980’s,  Stephane  Mallat  discovered  relationships 
between  pyramid  algorithms  and  orthonormal  wavelet  functions  which  triggered  the 
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current  interest  in  wavelet  transformations  [Ref.  13].  Unlike  Fourier  transform,  many 
modern  wavelets  have  compact  support  (are  zero  outside  a  finite  interval),  which 
helps  localize  signals  in  time  [Ref.  14]. 

1.  Basic  Mathematical  Derivation 

In  this  section,  we  describe  the  Daubechies  wavelet  transform  [Ref.  14].  We 
start  with  the  basic  wavelet  function  ip{t)  and  its  time  translatable  family 

Mt)  =i’{t-k)  k€  Z,  (IV.l) 

where  Z  is  the  set  of  integers  and  k  is  the  translation  factor. 

Next  we  introduce  another  parameter  j  to  allow  scaling  of  the  basic  function. 
Scale  and  time  (or  location)  variations  of  the  basic  wavelet  transform  function  are 
described  by: 

ipj,k{t)  =  2h{2H  -k)  keZ.  (IV.2) 

This  bases  functions  are  used  to  represent  a  function  by  expansion  in  the  same  way 
sines  and  cosines  are  used  to  represent  a  Fourier  series  expansion  of  that  function. 
This  is  done  by: 

/W  =  E“wfeW.  (iv-3) 

j,k 

where  aj^k  is  the  discrete  wavelet  transform  values  of  f{t).  If  ip  j, kit)  forms  an  or¬ 
thonormal  basis  for  the  space  of  signals  of  interest,  aj^k  can  be  defined  as  the  inner 
products 

Hk  =  <  i^j,k{t)y  fit)>  ■  (IV.4) 

One  common  way  of  calculating  the  wavelet  ip{t)  is  to  define  first  an  orthonor¬ 
mal  scaling  function  ip{t).  Following  Equations  (IV.l)  and  (IV.2),  we  have 

Mt)  =  ^{t-k)  keZ,  (IV.5) 

=  22cp{2H-k)  keZ.  (IV.6) 

Using  multi-resolution  analysis  [Ref.  15],  we  can  write  (fit)  as 

(p{t)  —  h{n)\/2  (fi2t  —  k)  n  G-Z,  (IV.7) 
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where  h{n)  is  the  scaling  function  coefficients  and  the  \/2  maintains  the  norm  of  the 
scaling  function  with  a  scale  of  two  {j  —  1). 

Based  on  the  orthogonality  principle  we  also  have 

<  >  =  J  =  0  (iv.8) 

for  all  appropriate  j,  k,l  eZ.  Now  we  can  write  as 

—  '^hi{n)'/2  (p{2t  —  k)  n  6  Z,  (IV. 9) 

n 

where  hi  (n)  are  the  wavelet  coefficients  that  help  define  the  transform,  and  relates  to 
the  scaling  function  coefficients  by 

hi{n)  =  {-l)^h{l-n).  (IV.IO) 


Having  defined  and  (p{t),  we  can  now  represent  a  function  g{t)  as  the  series 
expansion 

oo  oo  oo 

9{t)=  E  Ak)M't)  +  Yl  £  (IV.ll) 

A:=— oo  j=0  k—~oo 

where  the  first  summation  gives  a  low  resolution  approximation  of  g{t)  and  the  sec¬ 
ond  summation  gives,  for  each  increasing  j,  higher  resolutions  of  the  function.  The 
coefficients  c{k)  and  d{j,  k)  are  defined  as  follows: 


c{k) -<  g{t),(pk{t)  >  =  J g{t)(pk{t)dt,  (IV.12) 

d{j,k)  g{t),ipj,k{t)  >  =  J g{t)'tpj^kit)dt.  (IV.13) 

The  following  equations  are  necessary  for  calculating  the  scaling  coefficients 
for  the  Daubechies  wavelet  [Ref.  16],  which  is  the  wavelet  used  in  this  thesis. 

'£h{n)  =  ^/2  (IV.  14) 

n 

1  if  k  =  0  ^  ^ 

Y^hin)h{n-2k)  =  5(A:)  =  ^  (IV.15) 

n  0  otherwise 

k. 

EI'‘(«)P  =  1  (IV.16) 

n 


24 


For  a  length-4  coefficient  sequence  (Daubechies-4)  we  have  the  conditions: 


h(0)  -|-  h(l)  -h  h(2)  -)-  h(3) 

=  V2, 

(IV.17) 

h{0y  +  h{lf  +  h{2f  +  h{3f 

=  1, 

(IV.18) 

h{0)h{2)  +  h{l)h{3) 

=  0. 

(IV.19) 

This  yields  a  solution 

( \  \/3  3  -j-  y/s  3  —  \/3  1  —  \/3 1 

j 

that  is,  the  Daubechies-4  scaling  coefficients. 


.(IV.20) 


2.  Implementation 

a.  The  DWT  Algorithm 

The  algorithm  used  in  this  thesis  was  taken  from  reference  17,  where 
the  corresponding  C  code  is  given.  The  code  was  changed  to  work  with  C  zero- 
based  indexed  arrays.  Consider  a  ID  signal  represented  by  a  ID  column  vector  of 
length  N.  To  get  the  wavelet  Daubechies-4  transformation,  which  will  be  another 
ID  column  vector  of  the  same  length,  you  will  multiply  the  vector  by  the  following 
N  X  N  orthogonal  matrix  [Ref.  17]: 


h{0)  h(l)  h{2)  h{S) 

h{3)  -h{2)  h{l)  -h{0) 

h{0)  h{l)  h{2)  h{3) 

h{3)  -h{2)  h{l)  -h{0) 


h(0) 

m 

h(2) 

h(3) 

h(3) 

-h{2) 

Ml) 

-h(0) 

h{2) 

h{3) 

hid) 

Ml) 

h(l) 

-h(0) 

h(3) 

-fc(2) 

(IV.21) 
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where  the  blanks  stand  for  zeroes.  The  values  for  h{0),h{l),h{2)  and  h{3)  are  given 
by  Equation  IV.  20. 

When  this  matrix  is  multiplied  by  the  column  vector,  the  result  is 
another  column  vector  of  length  N,  where  the  odd  rows  represents  smoothed  values 
of  adjacent  rows  and  even  rows  represents  differenced  values  of  adjacent  rows  on  the 
original  column  vector.  The  algorithm  then  groups  all  the  smoothed  rows  in  the  first 
half  of  the  column  and  all  the  differenced  values  on  the  second  half.  This  process 
is  recursively  applied  over  the  smoothed  values,  until  we  have  just  two  remaining 
smoothed  values  on  the  top  of  the  column  vector.  At  each  iteration  i,  the  smoothed 
and  differenced  values  correspond  to  2'  adjacent  rows  of  the  original  value. 

For  a  two  dimensional  signal  (like  an  image),  the  algorithm  is  initially 
applied  over  each  row  of  the  2D  matrix,  and  then  over  each  column  of  the  transformed 
matrix  [Ref.  18].  The  result  is  presented  in  Figure  a,  where  Di  stands  for  the 
differenced  operation  over  the  i  dimension  of  the  matrix  and  analogously  Si  stands 
for  the  smoothing  operation.  In  our  study,  we  just  considered  the  portions  that  have 
been  smoothed/differenced  the  same  number  of  times  in  both  directions  (underlined 

diagonal  elements  in  Figure  a). 

b.  Image  Manipulation 

Our  vision  system  uses  the  Matrox  Image  Library.  This  library  provides 
several  routines  in  C  for  manipulating  images.  In  our  work,  we  basically  used  the 
routines  for  reading,  rotating,  translating,  scaling  and  displaying  a  picture.  All  the 
pictures  fed  into  the  DWT  algorithm  were  cropped  to  be  512  x  512  pixels,  in  size. 

During  the  coding  phase,  while  extracting  the  features,  we  figure  out 
that  the  DWT  applied  over  the  log  of  the  greyscale  values  of  the  picture,  results  in 
a  less  noisy  output,  as  illustrated  in  Figure  10.  This  was  also  used  in  [Ref.  19].  The 
feature  points  are  more  distinct  in  (b)  than  in  (a). 
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C.  ASSUMPTIONS  AND  DATABASE 

As  discussed  previously,  the  application  of  UXO  detection  on  a  mobile  platform 
allows  us  to  assume  that  the  objects  presented  to  us  on  a  fixed  camera  platform  will  fall 
in  a  small  range  of  known  scale.  Figure  2  illustrates  the  mobile  platform  “Shepard” , 
that  will  soon  receive  a  fixed  camera  assembly. 

For  these  experiments,  a  50mm  lens  was  used  and  the  range  to  the  object  was 
assumed  to  be  approximately  6  feet.  The  data  was  collected  with  a  camera  manually 
to  mimic  the  robotic  assembly.  This  was  necessary  as  the  UXO  objects  were  not 
available  on  site  and  travel  to  Moffett  Field  was  required.  A  digital  camera  was  used 
for  collecting  some  of  the  training  and  some  of  the  test  data,  the  other  was  taken 
with  a  CCD  analog  camera.  We  assumed  also  that  the  camera  creates  512  x  512 
pixel  images.  It  is  important  to  note  that  any  different  camera  configuration  can  be 
accommodated,  given  that  new  training  data  is  provided. 

Note  that  the  objects  may  appear  in  any  aspect,  rotation  and  position  in  the 
scene.  Figures  11  ,12  and  13  show  three  UXOs  that  are  used  in  our  database.  Possible 
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(a)  Without  Log 


(b)  With  Log 


Figure  10.  The  Feature  Points  Are  More  Distinctive  in  the  Wavelet  of  the  Log  Domain 
Shown  in  (b)  Compared  to  Those  Extracted  for  the  Same  Scene  in  the  normal  Wavelet 
Domain  (a) 

aspects  of  each  object  is  shown.  We  define  an  aspect  as  a  unique  view  of  an  object 
such  that  different  surfaces  of  the  object  are  viewable  in  each  aspect.  For  this  study, 
a  single  aspect  of  each  object  was  used  (aspect  0)  as  a  proof  of  concept. 

D.  FEATURE  EXTRACTION 

1.  ’’Interest  Point”  Detection 

There  are  many  kinds  of  features  that  can  be  extracted  as  was  discussed  previ¬ 
ously,  in  our  generic  image  recognition  system  of  Chapter  3.  There  exists  a  trade-off 
between  how  local  and  global  a  feature  is  and  typically  the  time  and  ease  of  extraction 
of  the  feature.  While  global  features  are  desirable,  it  is  often  not  possible  to  define 
nor  extract  such  features  reliably.  Global  features  such  as  surfaces  work  best  with 
very  simple  objects  like  planar  objects  and  do  not  work  for  fluidly  shaped  objects. 
While  UXOs  are  man-made  objects  they  are  very  complex  and  have  smoothly  varying 
shapes  as  can  be  seen  in  Figures  11,  12  and  13.  This  combined  with  the  fact  that 
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(a)  Aspect  0 


(b)  Aspect  1 


(c)  Aspect  2 


(d)  Aspect  3 


(e)  Aspect  4 


Figure  11.  81mm  Mortar  (class  1). 
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(a)  Aspect  0 


(b)  Aspect  1 


(c)  Aspect  2  (d)  Aspect  3 


(e)  Aspect  4 

Figure  12.  105mm  HEAT  Round  (class  2) 
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(a)  Aspect  0 


(b)  Aspect  1 


(c)  Aspect  2  (d)  Aspect  3 


(e)  Aspect  4 


Figure  13.  105mm  Artillary  Round  (class  3) 


many  of  the  objects  look  similar,  was  why  we  choose  to  look  for  more  local  rather 
than  global  features. 

A  type  of  local  feature  successfully  used  in  computer  vision  systems  is  the 
edge.  An  edge  measures  the  local  discontinuity  in  greyscale  values.  The  larger  the 
discontinuity,  the  greater  the  edge  strength.  In  our  system,  we  detect  "Interest  Points” 
in  a  wavelet  domain  that  can  be  loosely  thought  of  as  edge  points  of  greater  strength. 
Another  reason  why  the  wavelet  transform  is  used  is  because  its  multi-resolution 
nature  can  lead  to  improved  computational  performance  if  lower-resolution  levels  can 
be  examined. 

After  converting  the  image  to  the  wavelet  domain,  we  have  chosen  to  perform 
feature  extraction  and  subsequent  recognition  at  the  3rd  level  of  decomposition.  This 
means  that  instead  of  examining  the  entire  512  x  512  image  we  are  now  looking  only 
at  a  64  X  64  image.  This  level  was  chosen  using  the  results  described  in  [Ref.  3] 
that  discusses  how  to  pick  an  optimal  level  in  which  to  perform  object  localization. 
Figure  14,  shows  the  3rd  decomposition  level  for  the  image  in  Figure  12  (b).  While 
Figure  15  show  the  whole  DWT  output  of  that  image.  Notice  that  it  still  retains 
much  of  the  detail  needed  to  identify  the  object. 

The  "Interest  Points”  in  this  level  of  the  wavelet  domain  are  extracted  as 
the  top  ten  wavelet  pixel  values.  These  points  will  correspond  to  the  strongest  edge 
points  at  this  level  of  resolution.  As  discussed  in  the  next  section,  we  use  not  only  the 
location  of  each  point  but,  also  extract  other  attributes  to  create  a  feature  vector  for 
each  "Interest  Point”.  Our  hypothesis  is  that  these  "Interest  Point”  feature  vectors 
while  containing  local  information  can  together  be  used  to  create  a  description  that 
will  distinguish  different  objects  in  particular  aspects  and  angles  in  the  UXO  database 
from  each  other. 

After  a  point  is  selected  and  its  feature  vector  calculated,  the  wavelet  values  in 
the  surrounding  3x3  neighborhood  are  set  to  zero  to  avoid  their  selection  as  ”  Interest 
Points” .  This  will  guarantee  a  distribution  of  points  in  the  wavelet  domain.  Also  we 
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Wavelets  Coef  Level  3  Figure  oc2a1s0 


X 


Figure  14.  Third  Level  Wavelet  Decomposition. 

sort  the  "Interest  Points”  and  their  feature  vectors  by  their  distances  to  the  origin  of 
the  wavelet  domain  (upper- left  hand  corner). 

Figure  16  shows  for  an  aspect  of  each  UXO  object  the  "Interest  Points”  de¬ 
tected.  In  Figure  17,  objects  are  shown  at  different  angles  but,  the  same  aspect. 
Notice  that  the  "Interest  Points”  are  different  for  different  aspects  and  angles.  In 
Figure  18  shows  an  object  at  different  locations  in  the  image  and  the  fact  that  the 
location  of  the  "Interest  Points”  are  close  to  constant. 

2.  Features  at  each  ’’Interest  Point” 

Each  "Interest  Point”  extracted  is  described  by  a  feature  vector.  This  vector 
consists  of  the  location  of  the  point,  its  wavelet  value,  the  average  wavelet  value  in 
a  local  neighborhood  and  the  variance  of  the  wavelet  values  in  a  local  neighborhood. 
For  the  purpose  of  these  experiments,  a  neighborhood  of  3  x  3  was  chosen. 

Note  that  the  location  of  each  point  is  in  reference  to  the  centroid  of  all  of  the 
detected  "Interest  Points”  (Equations  IV. 22  and  IV.23).  This  is  important  as  we  do 
not  want  the  absolute  location  of  the  "Interest  Points”  but,  their  locations  relative 
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hi  4 

Figure  15.  Wavelet  Decomposition. 


to  each  other.  The  wavelet  values  are  first  divided  by  their  maximum  absolute  value 
to  provide  normalization.  This  will  be  useful  later  during  the  template  scanning,  to 
assure  that  the  same  range  of  values  will  be  fed  into  the  NN.  Note  that  as  mentioned 
before,  every  template  has  its  value  normalized  before  the  feature  vector  is  extracted. 
This,  together  with  the  relative  location  of  the  features,  guarantees  that  the  range 
of  the  values  for  the  scanned  feature  vector  will  match  the  one  used  during  training. 
The  9  values  of  a  3  x  3  neighborhood  of  a  selected  ’’Interest  Point”,  will  be  combined 
according  to  Equations  IV.24  and  IV.25  to  give  the  feature  vector’s  mean  and  variance, 
respectively. 
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Highest  10  Level  3  Figure  oclaOsOaO 
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(a)  Object  Class  1  Aspect  0  at  0°  (b)  Feature  Points  Extracted  from  (a) 


Highest  10  Level  3  Figure  oc1a0s0a4S 
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(c)  Object  Class  1  Aspect  0  at  45°  (d)  Feature  Points  Extracted  from  (c) 


Hipest  10  Level  3  Figure oclaOsOadO 
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(e)  Object  Class  1  Aspect  0  at  90°  (f)  Feature  Points  Extracted  from  (e) 


Figure  17.  Feature  Points  Detected  for  Different  Angles 


10  Level  3  Rgure  oc1k0s6 


(a)  Object  Class  1  Aspect  0  No  Translation  (b)  Feature  Points  Extracted  from  (a) 


10  Level  3  Fgu’e  oclaOsStl 


(c)  Object  Class  1  Aspect  0  Translated  (d)  Feature  Points  Extracted  from  (c) 


(e)  Object  Class  1  Aspect  0  Translated  (f)  Feature  Points  Extracted  from  (e) 


Figure  18.  Feature  Points  Detected  for  Different  Translations 


Feature 

Vector 

X 

Y 

Value 

— 

Mean 

Variance 

1 

-7.400 

0.300 

0.673 

0.255 

2 

-2.400 

-1.700 

-0.230 

0.091 

MIMIIIBM 

3 

-9.400 

4.300 

-0.731 

0.262 

MIKIEEM 

4 

■illleM 

5 

■new 

6 

-3.400 

4.300 

-0.404 

0.091 

7 

5.600 

0.285 

0.094 

IESsIsH 

8 

-1.000 

0.270 

HEiEH 

9 

5.600 

0.300 

0.336 

0.198 

0.033 

10 

9.600 

-3.700 

-0.522 

0.173 

0.022 

Table  V.  Feature  Vectors  for  Figure  16  (a) 


Table  V  lists  the  feature  vectors  extracted  for  the  UXO  shown  in  Figure  16 
(a).  Table  VI  lists  the  feature  vectors  extracted  for  a  different  UXO  object  shown  in 
Figure  16  (b).  Notice  that  the  feature  vectors  are  different  enough  to  distinguish  the 
two  apart. 


Feature 

Vector 

X 

Y 

Value 

Mean 

Variance 

1 

-2.000 

-6.900 

0.390 

0.176 

0.032 

2 

-2.000 

-3.900 

1.000 

0.361 

0.133 

3 

1.000 

-6.900 

0.848 

0.306 

0.074 

4 

-5.000 

2.100 

0.457 

0.094 

0.024 

5 

1.000 

-3.900 

0.805 

0.253 

0.077 

6 

4.000 

-2.900 

-0.791 

0.314 

0.080 

7 

-4.000 

7.100 

0.507 

0.198 

0.032 

8 

4.000 

1.100 

0.337 

0.167 

0.010 

9 

0.000 

8.100 

-0.450 

0.146 

0.017 

10 

3.000 

6.100 

-0.314 

0.130 

0.009 

Table  VI.  Feature  Vectors  for  Figure  16  (b) 
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3.  Training  Data:  Examples 

Figure  17  shows  some  of  the  training  data  used.  Unfortunately,  we  were  only 
able  to  obtain  27  images  per  aspect  of  the  UXO  objects.  Additionally,  for  ease  of 
the  test  study,  we  chose  a  single  aspect  of  each  object.  Rotational  versions  of  each 
aspect  where  generated  from  these  samples  by  rotating  the  images  at  increments  of 
0,  45  and  90  degrees. 

E.  RECOGNITION  SYSTEM 

In  this  section,  the  structure  of  the  Recognition  System  is  described.  It  consists 
of  using  Neural  Networks  to  implement  a  template  matching  scheme. 

While  we  have  made  the  hypothesis  that  the  features  extracted  at  each  of  the 
ten  interest  points  for  an  object  will  adequately  describe  an  object,  it  is  not  true  that 
an  image  consisting  of  possibly  multiple  objects  in  a  more  natural  setting  than  the 
training  data  will  have  the  top  ten  interest  points  only  belonging  to  a  single  object. 
Thus,  we  must  somehow  look  at  multiple  combinations  of  ten  interest  points  in  the 
scene  data,  each  representing  a  possible  object  hypothesis.  Given  this  is  the  case, 
a  scheme  involving  template  scanning  was  created  to  examine  only  portions  of  the 
scene  at  a  time.  In  each  of  these  template  portions,  the  top  ten  interest  points  are 
fed  into  our  Neural  Network  Processing  System  for  the  purpose  of  verification  of  the 
hypothesis  that  they  correspond  to  the  interest  points  of  a  particular  object  at  a 
particular  angle  and  aspect  combination.  Note  that  the  center  of  the  template  itself 
yields  the  location  of  the  object  in  the  scene. 

1.  Template  Scanning 

Because  we  have  objects  of  varying  size  and  the  largest  object  spans  approxi¬ 
mately  only  75%  of  the  image  area  in  its  longest  aspect,  we  do  not  want  to  consider 
the  entire  image  but,  only  regions  of  the  image  as  potentially  containing  objects.  By 
looking  in  smaller  regions,  there  is  less  likelihood  that  we  will  detect  ’’Interest  Points” 
from  the  image’s  background.  Hence  we  perform  a  template  scanning  procedure  to 
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divide  the  image  under  consideration  into  smaller  regions. 

Recall,  that  the  system  is  actually  examining  the  3rd  decomposition  level  of  the 
wavelet  domain  which  in  this  case  is  64x64  pixels  in  size.  Consequently,  we  examine 
different  regions  of  the  image  that  are  64  x  16, 16  x  64,  48  x  16, 16  x  48,  38  x  16, 16  x  38, 
36  X  28  and  34  x  27,  45  x  36  in  size.  Other  sized  templates  could  be  used  as  a  way  of 
improving  system  performance.  Choice  of  these  template  sizes  should  be  a  function 
of  the  range  of  the  various  aspect  shapes  in  the  database.  The  first  6  templates  where 
chosen  to  try  to  capture  the  near  horizontal  and  near  vertical  placement  of  objects  in 
the  scene.  The  last  three  templates  attempt  to  capture  diagonal  rotations  of  objects 
in  the  scene.  Again  all  of  these  sizes  where  manually  chosen  and  the  determination 
of  these  sizes  is  a  possible  future  area  of  research. 

Before  performing  the  template  scanning,  we  set  the  10%  lowest  wavelet  values 
(3rd  decomposition)  to  zero.  In  doing  this,  we  are  removing  the  Gaussian  noise  from 
the  picture  [Ref.  20]. 

There  are  multiple  instances  of  the  smaller  sized  templates  and  some  ’’template 
scanning”  scheme  is  needed  to  extract  them.  Below  is  the  algorithm  used; 

for (row  =  0;  row  +  window_vertical_size  <=  64;  row+=SCAN_STEP) 
for (column  =  0;  column  +  window_horizontal_size  <=  64; 

column+=SCAN_STEP) 

f ind_sccin_ten_highest (row , column , window_vertical_size , 

window_horizontal_size) ; 

The  feature  vectors  from  each  candidate  template  are  placed  in  a  file  in  the 
order  of  their  extraction  for  processing  by  the  Neural  Network  System  described  next. 

2.  Neural  Network  System 

In  this  section,  we  describe  the  Neural  Network  System  that  is  used  to  perform 
recognition  of  the  UXO  objects  given  the  input  of  the  ten  feature  vectors.  First,  the 
structure  of  the  Network  System  is  described.  Next,  the  training  process  is  described. 
For  a  review  of  Neural  Networks  and  a  discussion  of  learning  methods  used  see  the 
previous  chapter  on  Neural  Networks. 
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Structure 


a. 


Figures  19  and  20  are  diagrams  of  the  Neural  Network  Systems  that 
were  developed  to  perform  recognition  given  our  10  feature  vectors  as  input.  We 
tested  the  system  using  a  single  NN  for  all  classes  as  well  as  a  NN  for  each  separate 
class  (Multiple  NN).  In  the  multiple  NN  case,  we  will  refer  to  a  Neural  Network  for 
Object  i  as  NNi.  Neural  Network  NNi  is  responsible  for  determining  whether  or  not 
the  input  feature  vectors  classify  as  feature  vectors  from  Object  i. 

1.  Multiple  NN  Case 

The  output  of  each  NN  consists  of:  the  most  likely  class,  as  well  as  a  measure 
of  confidence.  Notice  that  the  outputs  from  the  NNs  in  Figure  20  are  passed  to 
a  Voting  algorithm,  that  will  determine  which  if  any  of  the  NNi’s  indicate  the 
presence  of  an  object  and  if  so  the  identity,  aspect  and  angle  of  it.  If  the  error 
is  small  enough  (measure  of  confidence  is  great  enough),  than  the  location  of 
the  template  is  marked  as  containing  the  detected  object.  As  many  templates 
are  processed,  it  is  possible  to  find  multiple  objects  located  in  the  scene.  The 
internal  structure  of  each  NN  is  identical  and  depicted  in  Figure  21.  Notice 
that  there  are  50  inputs  to  feed  in  the  5  elements  of  the  10  ’’Interest  point’s” 
feature  vectors.  The  middle  layer  contains  50  nodes.  The  output  consists  of 
N  nodes  representing  the  N  classes. 

2.  Single  NN  Case 

We  also  created  two  versions  of  the  single  NN  architecture.  The  first  case 
consisted  of  three  output  nodes  representing  the  three  objects  at  aspect  0  and 
angle  0.  The  second  case  consisted  of  nine  output  nodes  representing  the 
following  classes: 

•  {objl,  0°,  aspectO}  {objl,  45°,  aspectO}  {objl,  90°,  aspectO} 

•  {obj2,  0°,  aspectO}  {obj2,  45°,  aspectO}  {obj2,  90°,  aspectO} 

•  {objS,  0°,  aspectO}  {objS,  45°,  aspectO}  {objS,  90°,  aspectO} 

These  classes  do  not  represent  but  are  only  a  example  of  all  the  possible  objects, 

aspects  and  angles  combinations.  However,  we  believe  it  is  a  sufficient  enough  sample 
to  test  the  usefulness  of  this  recognition  system  on  UXO  detection. 
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The  output  of  each  NN  during  testing  however  will  typically  not  be 
binary.  Because  of  the  sigmoid  function  applied  as  described  in  Chapter  2,  the  output 
of  each  node  varies  from  0  to  1.  For  each  node,  we  then  round  its  output  to  either  0  or 
1  (threshold  of  0.5).  The  difference  between  the  actual  output  vector  and  the  binary 
rounded  vector  is  used  eis  the  error  measure.  Note  that  a  measure  of  confidence  can 
be  taken  to  be  inversely  related  to  this  error  measurement.  For  example,  in  the  3 
class  case,  suppose  we  have 


Output  =  [0.3  0.2  0.9] 


(IV.27) 


rounding  we  have: 


Rounded  Output  =[0  01] 


(IV.28) 


Thus,  the  decision  is: 

.^Q  32  Q  22  Q  ]^2 

Decision  =  Class  1  with  error  = - ^ - =  0.1247  (IV. 29) 

b.  Presentation  of  Results 

Here  we  discuss  results  based  on  the  order  of  sets  of  consecutive  tem¬ 
plates  with  similarly  low  error  values.  The  following  results  are  printed-out  to  the 

screen  for  user  inspection: 

A8:  Class  identity  of  8  consecutive  templates  yielding  same  identity 
and  similar  error.  This  is  the  lowest  of  all  such  8-consecutive 
sets . 

A7:  Class  identity  of  7  consecutive  templates  yielding  same  identity 
and  similar  error.  This  is  the  lowest  of  all  such  7-consecutive 
sets . 

A6:  Class  identity  of  6  consecutive  templates  yielding  same  identity 
and  similar  error.  This  is  the  lowest  of  all  such  6-consecutive 
sets . 

A5:  Class  identity  of  5  consecutive  templates  yielding  same  identity 
coid  similar  error.  This  is  the  lowest  of  all  such  5-consecutive 
sets . 

A4:  Class  identity  of  4  consecutive  templates  yielding  same  identity 
and  similar  error.  This  is  the  lowest  of  all  such  4-consecutive 
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sets . 

A3:  Class  identity  of  3  consecutive  templates  yielding  same  identity 
cind  similar  error.  This  is  the  lowest  of  all  such  3-consecutive 
sets . 


By  similar  error  we  mean  that  the  values  fall  within  A  of  each  other.  For 
this  thesis  A  =  10“*.  Ideally,  you  would  choose  the  answer  Ai  where  you  maximize 
i  at  the  same  time  as  minimizing  the  corresponding  error.  This  was  implemented  by 
using  the  equation 

Vi  =  l  +  (IV.30) 

o  H/i 

and  picking  the  consecutive  windows  which  maximizes  its  value,  where  E-max  = 
maxEi,E2,...,Es  and  Ei  is  the  corresponding  error.  In  practice,  picking  Ai  with  the 
least  error  or  minimizing  Vi,  gave  very  similar  results. 

c.  Training 

Training  takes  place  using  the  back-propagation  learning  method  de¬ 
scribed  in  Chapter  2.  A  set  of  27  images  for  every  aspect  &  angle  combination  for 
an  object  is  presented  as  input  to  the  NN  along  with  the  correct  classification  infor¬ 
mation.  In  the  both  NN  cases  (multiple  and  single  NNs),  due  to  the  limited  number 
of  training  samples  available,  and  a  need  to  also  detect  objects  that  are  not  Object 
i,  a  set  of  training  images  of  other  objects  besides  Object  i  are  presented  as  input  to 
NNi.  These  examples  work  as  counter  examples  for  the  training  process. 

The  network  is  trained  until  it  converges  to  an  error  less  than  .02  (for 
three-class  case)  or  .05  (for  nine-class  case). 

The  approximate  time  it  took  to  train  each  Neural  Network  ranged 
from  10  hours  to  7  days  on  a  SGI  02  machine  with  a  180  MHz  R5000  processor. 

F.  IMPLEMENTATION 

The  Feature  Extraction  Program  and  the  Scanning  Program  (Appendix  D) 
are  implemented  in  Microsoft  Visual  C-f- The  Neural  Network  Training  Program 
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(Appendix  A)  as  well  as  the  Neural  Network  Recognition  Program  (Appendix  E)  are 
implemented  in  Allegro  Common  Lisp  4.2  on  an  SGI  machine. 

All  the  details  about  the  implementation  of  the  recognition  system  presented 
in  this  chapter,  are  listed  in  Appendix  J. 

G.  RESULTS 

1.  Test  Data 

We  have  grouped  the  Testing  data  into  four  successfully  more  difficult  sets  of 
scene  data.  The  first  set  consist  of  samples  of  the  training  data  and  the  entire  image 
is  presented  as  a  template,  rather  than  performing  template  scanning.  The  second 
set  consists  again  of  training  data  where  we  do  perform  template  scanning.  The  third 
set  consists  of  objects  against  a  background.  The  fourth  set  depicts  multiple  objects 
in  a  scene. 

2.  Accuracy 

a.  Three- Class  Case 

All  of  images  in  Set  #1  were  classified  correctly.  Table  VII  shows  the 
results  for  Test  Set  #2  and  Table  VIII  shows  the  results  for  Test  Set  #3,  for  the 
multiple  NN.  While  Table  IX  shows  the  results  for  Test  Set  #2  and  Table  X  shows 
the  results  for  Test  Set  #3,  for  a  single  NN.  Table  XI  shows  the  results  for  set  #4. 
For  the  multiple  NN  case  we  have  (Min  Error): 

•  Out  of  the  81  samples  in  Test  Set  #2,  74  (91.4%)  are  classified  correctly  by 
object  identification,  79  (97.5%)  correctly  located  and  74  (91.4%)  are  correctly 
located  and  identified. 

•  Out  of  the  21  samples  in  Test  Set  #3,  13  (61.9%)  are  classified  correctly  by 
object  identification  ,  15  (71.4%)  correctly  located  and  13  (61.9%)  are  correctly 
located  and  identified. 

For  the  single  NN  case  we  have  (Min  Error): 

•  Out  of  the  81  samples  in  Test  Set  #2,  74  (91.4%)  are  classified  correctly  by 
object  identification,  78  (96.4%)  correctly  located  and  74  (91.4%)  are  correctly 
located  and  identified. 
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Set2 

(27  Pictures) 

Correctly 

Identified 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

Min 

Error 

cl  =  26 
c2  =  24 
c3  =  24 

cl  =  26 
c2  =  27 
c3  =  26 

cl  =  26 
c2  =  24 
c3  =  24 

Formula 

cl  =  26 
c2  =  24 
c3  =  24 

cl  =  26 
c2  =  27 
c3  =  26 

cl  =  26 
c2  =  24 
c3  =  24 

Exist  in 

3  or  more 
consecutive 
windows 

cl  =  26 
c2  =  25 
c3  =  26 

! 

cl  =  26 
c2  =  27 
c3  =  26 

cl  =  26 
c2  =  25 
c3  =  26 

Table  VII.  Results  for  Multiple  NN  3  Classes  Set  2 


•  Out  of  the  21  samples  in  Test  Set  #3,  11  (52.4%)  are  classified  correctly  by 
object  identification  ,  16  (76.2%)  correctly  located  and  11  (52.4%)  are  correctly 
located  and  identified. 

•  Out  of  the  6  samples  in  Test  Set  #4,  4  (66.7%)  are  classified  correctly  by 
object  identification  ,  5  (83.3%)  correctly  located  and  4  (66.7%)  are  correctly 
located  and  identified. 

In  Figure  22  shows  an  example  of  the  results  obtained  for  the  single 
NN  case  with  a  set  #3  picture.  The  box  in  Figure  22  (b)  represents  the  location  of 

the  best  answer  found. 

b.  Nine- Class  Case 

All  of  the  images  in  Set  #1  are  classified  correctly.  Tables  XII,  XIII 
and  XIV  show  the  results  for  Test  Set  #2  and  Tables  XV,  XVI  and  XVII  show  the 
results  for  Test  Set  #3,  for  a  single  NN.  Tables  XVIII,  XIX  and  XX  show  the  results 
for  set  #4. 

For  the  single  NN  case  we  have  (Min  Error): 

•  Out  of  the  243  samples  in  Test  Set  #2,  184  (75.7%)  are  classified  correctly  by 
object  identification,  205  (84.4%)  with  correct  angle  information,  225  (92.6%) 
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Classl 


^  Class2 


^ClassN 


Figure  19.  Diagram  for  a  Single  Neural  Network. 


Set3 

(7  Pictures) 

Correctly 

Identified 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

cl  =  4 

cl  =  4 

cl  =  4 

Min 

c2  =  6 

c2  =  7 

c2  =  6 

Error 

CO 

II 

CO 

o 

c3  =  4 

c3  =  3 

cl  =  4 

cl  =  4 

cl  =  4 

Formula 

c2  =  6 

c2  =  7 

c2  =  6 

CO 

II 

CO 

o 

c3  =  4 

c3  =  3 

Exist  in 

cl  =  4 

cl  =  4 

cl  =  4 

3  or  more 

c2  =  6 

c2  =  7 

c2  =  6 

consecutive 

windows 

c3  =  5  ' 

c3  =  5 

c3  =  4 

Table  VIII.  Results  for  Multiple  NN  3  Classes  Set  3. 
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Classl 

Class2 

ClassN 


Figure  20.  Diagram  for  Multiple  Neural  Networks. 
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Figure  21.  Three-Layer  Neural  Network. 


Set2 

(27  Pictures) 

Correctly 

Identified 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

Min 

Error 

cl  =  25 
c2  =  24 
c3  -  25 

cl  =  25 
c2  =  27 
c3  =  26 

cl  =  25 
c2  =  24 
c3  =  25 

Formula 

cl  =  25 
c2  =  24 
c3  =  25 

cl  =  25 
c2  =  27 
c3  =  26 

cl  =  25 
c2  ==  24 
c3  =  25 

Exist  in 

3  or  more 
consecutive 
windows 

cl  =  25 
c2  =  26 

c3  =  25 

cl  =  25 
c2  =  27 
c3  =  26 

cl  =  25 
c2  =  26 

c3  =  25 

Table  IX.  Results  for  a  Single  NN  3  Classes  Set  2 
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Set3 

(7  Pictures) 

Correctly 

Identified 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

cl  =  5 

cl  =  5 

cl  =  4 

Min 

c2  =  3 

c2  =  7 

c2  =  4 

Error 

O 

CO 

II 

CO 

II 

CO 

o 

c3  =  3 

cl  =  5 

cl  =  5 

cl  =  4 

Formula 

c2  =  3 

c2  =  7 

c2  =  4 

c3  =  3 

c3  =  4 

CO 

II 

CO 

o 

Exist  in 

cl  =  5 

cl  =  5 

cl  =  5 

3  or  more 

c2  =  6 

c2  =  7 

c2  =  6 

consecutive 

windows 

c3  =  3 

c3  =  4 

c3  =  3 

Table  X.  Results  for  a  Single  NN  3  Classes  Set  3. 


Set4 

(3  Pictures, 

2  Objects 
in  each) 

Correctly 

Identified 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

cl  =  1 

cl  =  1 

cl  =  1 

Min 

c2  =  2 

c2  =  2 

c2  =  2 

Error 

c3  =  1 

O 

CO 

II 

to 

c3  =  1 

Table  XL  Results  for  a  Single  NN  3  Classes  Set  4. 


correctly  located  and  173  (71.2%)  are  classified  correctly  for  location,  angle  in 
addition  to  identification. 

•  Out  of  the  63  samples  in  Test  Set  #3,  31  (49.2%)  are  classified  correctly  by 
object  identification,  35  (55.6%)  with  correct  angle  information,  40  (63.5%) 
correctly  located  and  21  (33.3%)  are  classified  correctly  for  location,  angle  in 
addition  to  identification. 

•  Out  of  the  18  samples  in  Test  Set  #4,  12  (66.7%)  are  classified  correctly  by 
object  identification,  12  (66.7%)  with  correct  angle  information,  13(72.2%) 
correctly  located  and  8  (44.4%)  are  classified  correctly  for  location,  angle  in 
addition  to  identification. 
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Set2 

(27  Pictures) 
(Angle  =  45°) 

Correct 
Class  Id 

Correct 

Angle 

Correct 
Class  Id 
and 
Angle 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

cl  =  8 
c2  =  17 
c3  =  17 

cl  =  18 
c2  =  18 
c3  =  14 

cl  =  8 
c2  =  12 
c3  =  13 

cl  =  27 
c2  =  23 
c3  =  22 

cl  =  8 
c2  =  12 
c3  =  13 

Formula 

cl  =  8 
c2  =  17 
c3  =  17 

cl  =  18 
c2  =  18 
c3  =  14 

cl  =  8 
c2  =  12 
c3  =  13 

cl  =  27 
c2  =  23 
c3  =  22 

cl  =  8 
c2  =  12 
c3  =  13 

Exist  in 

3  or  more 
consecutive 
windows 

cl  =  12 
c2  =  21 
c3  =  17 

cl  =  22 
c2  =  22 
c3  =  17 

cl  =  12 
c2  =  17 
c3  =  15 

cl  =  27 
c2  =  25 
c3  =  22 

cl  =  12 
c2  =  17 
c3  =  15 

Table  XIII.  Results  for  a  Single  NN  9  Classes  Set  2  Angle  45° 


Set2 

(27  Pictures) 
(Angle  =  90°) 

Correct 
Class  Id 

Correct 

Angle 

Correct 
Class  Id 
and 
Angle 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

Min 

Error 

cl  =  26 
c2  =  21 
c3  =  22 

cl  =  27 
c2  =  25 
c3  =  24 

cl  =  26 
c2  =  21 
c3  =  21 

cl  =  27 
c2  =  26 
c3  =  24 

cl  =  26 
c2  =  21 
c3  =  21 

Formula 

cl  =  26 
c2  =  21 
c3  =  22 

cl  =  27 
c2  =  25 
c3  =  24 

cl  =  26 
c2  =  21 
c3  =  21 

cl  =  27 
c2  =  26 
c3  =  24 

cl  =  26 
c2  =  21 
c3  =  21 

Exist  in 

3  or  more 
consecutive 
windows 

cl  =  26 
c2  =  24 
c3  =  24 

cl  =  27 
c2  =  26 
c3  =  24 

cl  =  26 
c2  =  24 
c3  =  23 

cl  =  27 
c2  =  27 
c3  =  25 

cl  =  26 
c2  =  24 
c3  =  23 

Table  XIV.  Results  for  a  Single  NN  9  Classes  Set  2  Angle  90° 
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Set3 

(7  Pictures) 
(Angle  =  0°) 

Correct 
Class  Id 

Correct 

Angle 

Correct 
Class  Id 
and 
Angle 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

cl  =  1 

cl  =  4 

cl  =  1 

cl  =  6 

cl  =  1 

Min 

c2  =  4 

c2  =  6 

c2  =  3 

c2  =  6 

c2  =  3 

Error 

c3  =  4 

c3  =  6 

c3  =  4 

c3  =  2 

c3  =  2 

cl  =  1 

cl  =  4 

cl  =  1 

cl  =  7 

cl  =  1 

Formula 

c2  =  4 

c2  =  6 

c2  =  3 

c2  =  7 

c2  =  3 

c3  =  4 

c3  =  6 

c3  =  4 

c3  =  2 

c3  =  2 

Exist  in 

cl  =  4 

cl  =  7 

cl  =  4 

cl  =  7 

cl  =  4 

3  or  more 

c2  =  5 

c2  =  7 

O 

to 

II 

c2  =  7 

c2  =  4 

consecutive 

windows 

c3  =  5 

c3  =  6 

c3  =  5 

II 

CO 

o 

c3  =  3 

Table  XV.  Results  for  a  Single  NN  9  Classes  Set  3  Angle  0° 


Set3 

(7  Pictures) 
(Angle  =  45°) 

Correct 
Class  Id 

_ 

Correct 

Angle 

Correct 
Class  Id 
and 
Angle 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

cl  =  1 

cl  =  0 

cl  =  4 

cl  =  0 

Min 

c2  =  3 

c2  =  3 

c2  =  4 

CO 

II 

o 

Error 

c3  =  2 

c3  =  2 

c3  =  4 

c3  =  2 

cl  =  1 

cl  =  1 

cl  =  0 

cl  =  4 

cl  =  0 

Formula 

c2  =  3 

c2  =  3 

c2  =  3 

c2  =  4 

c2  =  3 

c3  =  3 

c3  =  2 

c3  =  2 

c3  =  4 

c3  =  2 

Exist  in 

cl  =  2 

cl  =  2 

cl  =  1 

cl  =  5 

cl  =  1 

3  or  more 

c2  =  4 

c2  =  4 

c2  =  4 

c2  =  4 

c2  =  4 

consecutive 

windows 

c3  =  3 

c3  =  3 

c3  =  2 

c3  =  5 

c3  =  2 

Table  XVI.  Results  for  a  Single  NN  9  Classes  Set  3  Angle  45° 
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Set3 

(7  Pictures) 
(Angle  =  90°) 

Correct 
Class  Id 

Correct 

Angle 

Correct 
Class  Id 
and 
Angle 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

cl  =  4 

cl  =  3 

cl  =  3 

cl  =  4 

cl  =  3 

Min 

c2  =  6 

c2  =  6 

c2  =  6 

c2  =  7 

c2  =  6 

Error 

c3  =  5 

It 

CO 

o 

c3  =  3 

O 

CO 

II 

CO 

c3  =  1 

cl  =  4 

cl  =  3 

cl  =  3 

cl  =  4 

cl  =  3 

Formula 

c2  =  6 

c2  =  6 

c2  =  6 

c2  =  7 

c2  =  6 

c3  =  5 

O 

CO 

II 

c3  -  3 

c3  =  3 

c3  =  1 

Exist  in 

cl  =  7 

cl  =  5 

cl  =  5 

cl  =  6 

cl  =  5 

3  or  more 

c2  =  6 

c2  =  7 

c2  =  6 

c2  =  7 

c2  =  6 

consecutive 

windows 

c3  =  6 

c3  =  6 

c3  =  5 

c3  =  7 

c3  =  4 

Table  XVII.  Results  for  a  Single  NN  9  Classes  Set  3  Angle  90° 


Set4 

(3  Pictures, 

2  Objects 
in  each) 
(Angle  =  0°) 

Correct 
Class  Id 

Correct 

Angle 

Correct 
Class  Id 
and 
Angle 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

cl  =  2 

cl  =  2 

cl  =  2 

cl  =  2 

cl  =  2 

Min 

c2  =  1 

c2  =  1 

c2  =  1 

c2  =  1 

O 

to 

II 

Error 

O 

CO 

II 

to 

O 

CO 

11 

O 

CO 

II 

c3  =  1 

c3  =  1 

Table  XVIII.  Results  for  a  Single  NN  9  Classes  Set  4  Angle  0° 


Set4 

(3  Pictures, 

2  Objects 
in  each) 
(Angle  =  45°) 

Correct 
Class  Id 

Correct 

Angle 

Correct 
Class  Id 
and 
Angle 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

cl  =  0 

cl  =  1 

cl  =  0 

cl  =  1 

cl  =  0 

Min 

c2  =  1 

c2  =  1 

c2  =  1 

c2  =  2 

c2  =  1 

Error 

c3  =  2 

c3  =  1 

c3  =  1 

c3  =  1 

O 

CO 

II 

o 

Table  XIX.  Results  for  a  Single  NN  9  Classes  Set  4  Angle  45° 
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Set4 

(3  Pictures, 

2  Objects 
in  each) 
(Angle  =  90°) 

Correct 
Class  Id 

Correct 

Angle 

Correct 
Class  Id 
and 
Angle 

Correctly 

Located 

Correctly 

Identified 

and 

Located 

cl  =  1 

cl  =  2 

cl  =  1 

cl  =  2 

cl  =  1 

Min 

c2  =  1 

c2  =  2 

c2  =  1 

c2  =  2 

c2  =  1 

Error 

c3  =  2 

c3  =  1 

c3  =  1 

c3  =  1 

O 

CO 

II 

Table  XX.  Results  for  a  Single  NN  9  Classes  Set  4  Angle  90° 


In  Figure  23  samples  from  set  #  4  are  shown.  Figure  23  (a)  shows 
objects  cl  and  c2  at  angle  0°,  the  boxes  and  text  superimposed  indicate  the  location 
and  identity  information  produced  by  the  NN.  All  existing  answers  for  cases  A3 
through  A8  (See  Section  2.b  of  this  chapter)  are  displayed.  Figure  23  (b)  is  the  third 
decomposition  level  of  the  wavelet  domain,  again  with  the  answers  boxes  and  text 
superimposed.  Figure  23  (c),  (d)  and  (e),  (f)  are  pairs  corresponding  to  other  samples 
of  set  #4. 

In  Figure  24  shows  UXOs  not  in  our  training  database.  These  images 
were  used  to  test  the  occurrence  of  false  positives  by  our  system.  Note  that  false 
positives  are  produced  by  our  system.  However,  it  is  interesting  to  note  that  our 
system  does  do  a  good  job  at  localizing  these  objects  in  the  scene. 

3.  Timing 

One  minute  is  the  typical  time  it  takes  to  process  a  single  scene  image  (scan¬ 
ning  plus  NN  processing).  This  speed  could  be  greatly  improved  by  implementing  the 
recognition  system  in  a  language  like  C  rather  than  Lisp  which  is  an  interpretive  lan¬ 
guage  and  requires  a  rather  long  loading  and  running  phases  (approximately  3  times 
slower  than  C).  Another  improvement  could  be  made  in  the  scheme  by  integrating 
the  template  scanning  scheme  currently  implemented  in  C  with  the  Neural  Network 
System  and  stopping  template  scanning  when  the  first  acceptable  template  is  found. 
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(a)  Sample  1  Identified  as  Classl 


(b)  Wavelet  Domain  for  (a) 


(c)  Sample  2  Identified  as  Class  1 


(d)  Wavelet  Domain  for  (c) 


Figure  24.  Samples  of  False  Positive  Results 

4.  Discussion 

This  work  shows  that  it  is  possible  to  use  computer  vision  techniques  for  UXO 
detection  with  good  accuracy  for  a  simple  scene  and  limited  accuracy  for  complicated 
scenes.  The  results  indicate  the  scheme  is  much  better  at  localizing  than  identify¬ 
ing  objects.  The  use  of  higher  level,  more  global  features  for  identification  may  be 
necessary,  instead  of  the  local  ones  used  in  this  research. 
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V.  AUTONOMOUS  VEHICLE  NAVIGATION 

ISSUES 

A.  INTRODUCTION 

This  chapter  will  give  an  overview  of  autonomous  vehicle  motion  and  position¬ 
ing.  This  is  a  different  but  essential  component  of  creating  a  mobile  robot  capable 
of  UXO  detection  in  the  field.  All  motion  planning  theory  presented  is  based  on  the 
work  in  references  4,5,6.  “Yamabico”  (Figure  25)  is  the  robot  developed  by  Professor 
Kanayama,  which  is  used  to  test  some  of  the  concepts  presented  here. 


Figure  25.  Robot  “Yamabico” 


This  work  is  in  support  of  the  navigation  system  of  “Yamabico” .  Currently, 
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it  moves  in  an  indoor  environment.  This  thesis  made  the  following  contributions  to 
the  robot’s  system. 

1.  Development  of  a  more  general  line  fitting  algorithm  used  in  the  edge  detection 
system. 

2.  Creation  of  a  3D  feature  map  of  an  indoor  environment. 

3.  Development  of  an  algorithm  to  extract  the  visible  features  (vertical  lines)  of 
a  2D  map,  given  a  viewpoint. 

4.  Implementation  of  the  steering  theory  [Ref.  4]  in  “Yamabico’s”  motion  system. 

B.  POSITIONING 

There  are  several  ways  of  positioning  a  vehicle  in  the  real  world.  If  one  is 
not  using  an  outside  navigation  system  such  as  GPS,  solving  this  problem  for  an 
outdoor  vehicle  can  be  very  complex.  Our  research  will  deal  with  indoor  navigation 
for  an  autonomous  vehicle.  It  may  be  possible  to  extend  techniques  used  for  indoor 
navigation  to  outdoor  navigation.  Two  stages  are  necessary  in  performing  positioning 
in  indoor  environment.  The  first  involves  using  computer  vision  techniques  to  find 
landmarks  in  the  scene  and  the  second  involves  matching  these  to  landmarks  in  a  3D 
map  of  the  robot’s  environment.  The  work  done  in  this  thesis  touches  upon  each  of 
these  stages.  In  Section  1,  below,  we  discuss  a  method  that  can  be  used  to  fit  straight 
lines  to  edge  data.  Such  lines  are  commonly  used  as  landmarks. 

A  second  part  of  this  work  described  in  section  2,  presents  a  methodology  to 
constructs  a  3D  model  using  linear  landmarks. 

1.  Weighted  Line  Fitting  Algorithm 

One  way,  to  help  a  robot  to  position  itself  autonomously  in  a  indoor  envi¬ 
ronment,  is  by  processing  visual  information.  The  robot  can  process  a  picture,  find 
edges  representing  landmarks,  match  them  with  a  model  of  the  world,  and  use  the 
resulting  positioning  information  to  correct  its  inertial  navigation.  Edge  detection 
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can  be  performed  by  several  different  operators.  We  have  chosen  the  Sobel  operator 
[Ref.  7]. 

After  the  edges  have  been  extracted  from  a  picture,  we  need  to  fit  the  edge 
pixels  to  a  straight  line.  This  is  accomplished  by  a  form  of  Least  Squares  Fitting. 

Based  on  Chapter  10  of  [Ref.  21],  we  show  below  the  equations  for  finding  a 
straight  line  given  a  set  of  points  on  it.  The  weight  factor  w  present  in  the  equations,  is 
the  magnitude  of  each  pixel  calculated  by  the  Sobel  operator  signifying  the  strength 
of  the  edge.  The  program  previously  written  to  calculate  edges  of  a  picture,  was 
modified  to  support  the  inclusion  of  this  factor.  So  in  our  case,  w  will  be 


where  f  is  a  function  that  denotes  the  gradient  of  the  greyscale  value  of  a  pixel  located 
at  (xi,  Ui).  This  is  the  result  of  the  application  of  the  Sobel  operator  over  that  pixel. 

To  detect  a  straight  line  segment  that  fits  a  set  of  edge  points,  we  want  the 
line  which  minimizes  the  distance  of  the  edge  to  the  line.  We  represent  this  distance 
as  the  sum  of  squared  distances  between  all  points  and  the  line  in  question.  The  best 
line  is  found  by  continuously  modifying  the  description  of  the  line  segment  to  best  fit 
the  data  using  a  least  squares  fitting  algorithm. 

We  will  derive  now  a  series  of  Lemmas  ending  in  a  proposition  that  is  the  heart 
of  our  new  algorithm  to  perform  a  weighted  line  fitting  which  we  use  to  detect  our 
straight  line  segments.  Those  segments  will,  in  the  future,  be  used  in  our  mobile  robot 
positioning  system.  Recall,  we  take  the  weights  from  the  edge  values.  Points  which 
greatly  increase  the  error  are  assumed  to  not  belong  to  the  line  under  consideration. 
Let 

R  =  n>2  (V.2) 

be  a  set  of  n  points  that  are  not  all  equal.  The  moments  rrijk  of  R  are  defined  as 
follows. 

n 

moQ  =  Y^Wi  (V.3) 

1=1 
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n 


mio 

=  Y, 

i-1 

n 

(V.4) 

moi 

= 

2=1 

n 

(V.5) 

"i20 

=  Y^i^l 

Z=1 

(V.6) 

mil 

n 

=  Y'^i^iVi 

2=1 

n 

(V.7) 

mo2 

=  Y'^iVi 

(V.8) 

The  centroid  C  =  {^ix,iiy)  of  the  set  R  is  given  by 


The  secondary  moments  about  the  centroid  are  defined  as 


n 


M2O 

i=l 

{MM) 

Mn 

n 

(^2  ~  My) 

i=l 

(V.ll) 

Mo2 

n 

(V.12) 

2=1 


The  following  relations  are  easily  verified. 


Lemma  1 


M20  =  -  ^Jixf 


i=\ 

n 


'^{Wixf  -  2wiXifix  +  Winl) 

2=1 

mio  fmio\^ 

77120  -  2 - mio  +  -  moo 

moo  Vmoo/ 


=  m2o 

M20  =  m2o  - 
Mn  ^ 


I  ^10 

^00  ^00 
2 


mio 

moo 


i^i  f^x){yi  My) 

i=l 
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=  ^{WiXiVi  -  WiXiHy  -  WiViHx  +  Wi/J^xfJiy) 

i=l 

TTZii  TTlioIXy  TTIqiIJ/x  “1“  ?^O0/^x/^j/ 

moi  mio  ,  miomoi 

=  mil  -  "^10  -  ’^oi  H — -9 — »^oo 


Mil 

Mo2 


mil 


moo 

miomoi 


moo 


m^o 


moo 

n 


i=l 

n 


i=l 

^moi 

=  mo2  —  2 - moi  +  I  — —  I  moo 

moo  vmoo/ 


moiV 


=  mo2 


Mo2  —  mo2 


m; 


01 


moo 
2 


+ 


m; 


01 


moo 


mpi 

moo 


Let  us  consider  a  ray  starting  from  the  origin  O  =  (0, 0)  with  a  direction  of  a, 
where  a  G  [— 7r/2, 7r/2].  For  an  arbitrary  point  p  =  {x,y),  let  H  be  the  closest  point 
on  the  ray  from  p. 


Lemma  2  When  a  ray  of  a  direction  a  and  a  point  p  is  given,  the  distance  p  from 
O  to  H  is  given  by 

p  =  xcosa  +  ysina.  (V.13) 

The  “distance”  p  may  be  negative  or  zero. 

Using  this  result,  we  adopt  the  parametric  representation  of  a  line  by  its  normal 
direction  a  and  the  distance  r  from  the  origin  O  {a  and  r  are  constants).  Actually, 
this  line 

L=(r,a)  (V.14) 

is  the  set  of  points  {x,  y)  which  satisfies  the  relation 

xcosa  +  ysina  =  r.  (V.15) 


This  representation  has  a  striking  advantage  as  opposed  to  the  normal  method 
of  using  a  formula  y  =  f{x),  as  this  parametric  method  has  no  singularity  with  respect 
to  vertical  lines. 
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Lemma  3  The  signed  distance  (or  residual)  5i  from  point  Pi  Pi)  to  the  line 

L  =  (r,  a)  is 

6i  =  Xicosa  +  pisina  —  r.  (V.16) 


Proposition  1  For  a  set  of  points 


^  {Pl )  '  '  ’  !  Pn}  {  (^1 )  ?/l) )  '  ‘  '  5  (^nj  Vn)  } ? 


a  line  L  =  (r,  a)  with 

a  =  Mo2  -  M20) 

miQ  ,  moi  .  ,  . 

r  =  — -  cos  a  H - sin  a  =  cos  a  +  Uy  sin  a 

.  moo  moo 

makes  the  sum  of  residuals  5,  minimum. 


(V.17) 


(V.18) 

(V.19) 


Proof 

The  sum  of  the  squares  of  all  the  residuals  is 


iS  =  ^  Wj  (j^Xi  cos  a  +  pi  sin  a)  —  r^  (V.20) 

Since  the  line  which  best  fits  the  set  of  points  is  supposed  to  minimize  S,  the  optimum 
line  (r,  or)  must  satisfy 


da  dr 


(V.21) 


Thus, 


dr 
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=  —2  Wj  ((xj  cos  a  +  Pi  sin  a)  —  r) 


i=l 


-  E  WiXi  I  cos  a  —  E  WiPi )  sin  a 


Ki=l 


^i=l 


'»f=l 


2(r  moo  —  mw  cos  a  —  moi  sin  a)  =  0 


(V.22) 


and 


mw  moi  .  ,  . 

r  = - cos  a  H - sm  a  =  cos  a  +  Uy  sin  a 

moo  moo 


(V.23) 
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where  r  may  be  negative.  Substituting  r  in  Equation  V.15  by  Equation  V.23,  we 
obtain 

dS  ^ 

—  =  2'^Wi(j^Xi- fXx)  cos  a +{yi- Hy)  sin  a^(^-{xi- Hx)  sin  a +  {yi- fly)  cos 

i=l 
n 

=  2  ^  Wi  ((?/i  -  fiy)"^  -  (xi  -  fix)^)  sin  a  cos  a 
2  =  1 

n 

+2  ^  Wi{xi  -  tix){yi  -  A‘t/)(cos^  a  -  sin^  a) 

i—l 

=  (Mo2  —  M20)  sin  2q;  +  2Mii  cos  2q;  =  0  (V.24) 

Therefore, 

2q!  =  atan2( — 2iW^ii,  Afo2  —  ^^20) 

□ 

Thus,  the  value  of  2q!  is  in  the  fourth  quadrant,  [— 7r,7r],  and  then  a  € 
[-7r/2,7r/2]. 


a.  Implementation 

The  program  code  developed  is  given  in  Appendix  F.  Figure  26  thru 
Figure  29  show  some  of  the  results  obtained  with  and  without  the  inclusion  of  weights. 
The  threshold  indicated  is  the  value  used  after  applying  the  Sobel  operator,  to  decide 
if  the  pixel  belongs  to  a  landmark  or  not.  The  maximum  <f)  difference  shown,  defines 
the  maximum  directional  difference  (in  degrees)  allowed  between  adjacent  pixels,  to 
be  considered  on  the  same  line. 

b.  Results 

Unfortunately,  there  is  not  a  significant  visual  improvement  when  in¬ 
cluding  weights  to  justify  the  added  computational  burden.  However,  we  can  not 
discard  the  possibility  that  for  some  specific  cases  that  were  not  tested,  this  approach 
could  produce  better  results.  More  experimentation  is  needed. 
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Figure  26.  Results  without  Weights,  Threshold  =  100,  Max  (j)  Difference  =  22 


Figure  27.  Results  with  Weights,  Threshold  =  100,  Max  (j)  Difference  =  22 


64 


Figure  28.  Results  without  Weights,  Threshold  =  75,  max  cj)  difference  =  22 


Figure  29.  Results  with  Weights,  Threshold  =  75,  max  (j)  difference  =  22 
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2.  3D  MODELING 

Another  contribution  made  to  the  “Yamabico”  mobile  robot  system,  is  the 
modification  of  a  3D  modeling  program  to  simulate  rendering  of  views  by  a  camera 
that  can  be  positioned  at  different  locations  in  an  indoor  3D  model.  The  3D  mod¬ 
eling  program  is  implemented  in  Lisp  and  is  listed  in  Appendix  G.  Figure  30  and 
Figure  31,  depict  some  frozen  frames,  rendered  camera  views.  The  3D  model  consists 
of  connected  edges. 


2nd  Floor 
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2nd  Floor 


a.  Extraction  of  2D  Features  from  Rendered  Model  Views 
Once  a  model  of  the  world  is  constructed,  we  still  need  to  find  what 
lines  in  the  model  are  visible,  at  different  viewpoints.  These  features  can  be  matched 
to  features  extracted  from  a  real  scene  to  update  the  robot’s  position.  Recall  that 
we  detect  straight  line  segments.  After  analyzing  the  problem,  we  decided  that  just 
extracting  features  from  a  2D  top  view  of  the  3D  map  is  sufficient.  This  will  yield 
the  visible  vertical  lines  of  the  world,  which  can  be  matched  with  the  scene’s  vertical 
edges.  Appendix  H  contains  the  program  to  find  the  visible  vertical  landmarks  of 
a  given  model.  Although  still  not  perfect,  the  program  produced  very  good  results 
for  a  large  set  of  cases,  as  shown  in  Figure  32  and  Figure  33.  The  C  represents  the 
camera  position  and  the  diamonds  (o)  represent  the  visible  vertical  lines. 
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Figure  33.  Second  Floor 


C.  MOTION  PLANNING 

The  non-linear  control  theory  presented  here  is  based  on  Professor’s  Kanayama 
tracking  methods  presented  in  [Ref.  4,  5,  6].  All  the  simulation  results  presented  were 
actually  tested  on  the  autonomous  vehicle  “Yamabico”  (Figure  25). 

1.  Linear  and  Circular  Tracking 

Suppose  we  want  a  vehicle  in  a  certain  position  to  move  towards  a  line,  as 
shown  in  Figure  34. 

Let’s  now  define  a  vehicle’s  state  as  a  configuration  [Ref.  4], 

q  =  {p,e,K),  (V.26) 

where  p  denotes  its  {x,  y)  coordinates,  9  is  its  orientation  and  k  is  its  instantaneous 
path  curvature. 
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Figure  34.  Principle  of  Path  Tracking 


The  equation  that  describes  motion  is  given  by 

^  =  -a/c  -  b(e  -  ^i)  -  cAd,  (V.27) 

ds 

where  s  is  the  arc  length,  a,  h,  c  are  positive  constants,  and  Ad  is  the  “signed” 
distance  from  p  to  L.  This  equation  with  its  negative  terms  represents  a  negative 
feedback  rule  that  we  called  the  steering  function.  The  first  negative  term,  —ok  is  a 
feedback  term  (a  damping  factor)  for  the  curvature,  the  second  term  —b{6  —  6i)  is  a 
feedback  term  for  the  angle  error,  and  the  third  term  —cAd  is  a  feedback  term  for 
the  positional  error. 

As  shown  in  [Ref.  4],  a,  b,  c  can  be  defined  as 


a  — 3k,  b  —  3k^,  c  =  k^, 


(V.28) 


where  k  the  gain  of  the  steering  function,  A  better  way  of  visualizing  the  effects  of  k 
in  the  steering  function,  is  defined  by 


(V.29) 


where  cr  is  called  smoothness.  In  other  words,  if  a  is  large  we  have  a  smooth  trajectory 
and  if  a  is  small  we  have  a  sharper  trajectory,  as  shown  in  Figure  35. 

For  a  circular  tracking  situation  as  presented  in  Figure  36,  the  steering  has  to 
be  slightly  modified  (Equation  V.30). 


dK 

ds 


—a{K  —  Ki)  —  b{9  —  6i)  —  cAd. 


(V.30) 
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y 


Figure  36.  Tracking  a  Circle 


The  curvature  ni  is  now  the  curvature  of  the  circle  we  are  tracking  and  is  equal 
to  where  R  is  the  radius. 

As  proven  in  [Ref.  5]  we  have 


3k, 

(V.31) 

3k^  — 

(V.32) 

k^  —  SkKi^, 

(V.33) 

which  also  holds  for  the  linear  tracking.  The  parameter  a  is  still  defined  in  the  same 
way  as  before  and  has  similar  effect  as  shown  in  Figure  37. 
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Circle 


Figure  37.  Circle  Tracking  for  cr  =  1, 2, 4  (from  Left  to  Right) 

2.  Neutral  Switching 

Although  the  motion  resulting  from  the  use  of  the  steering  function  is  very 
smooth,  finding  the  right  point  to  leave  a  path  to  transition  to  another  is  a  problem. 

[Ref.  6]  states  that  for  a  smoother  path  change,  the  leaving  point  must  be  the 
one  where  the  steering  function  changes  its  sign.  In  other  words, 

d  K 

—  =  -cAk  -  6A0  -  cM  =  0.  (V.34) 

as 

For  a  situation  like  Figure  38  where  Ak  =  0  and  A9  =  —  |  we  have 

Ad  = -— =  SAda  =  4.7l2a.  (V.35) 

c 

We  have  for  Figure  38  the  following  leaving  points  for  the  same  smoothness 
(a  =  1.0):  (0,7),  (0,4.712),  (0,3.5),  (0,3),  (0,2.5),  (0,2),  (0,1.5)  and  (0,1). 

In  Figure  39,  we  show  the  curvature  plots  corresponding  to  Figure  38.  We  just 
labeled  the  curves  for  the  end  leaving  points  (pi  and  P2)  and  for  the  neutral  switching 
point  (pn))  to  preserve  readability  in  the  plots.  One  can  easily  see  that  the  curvature 
for  the  neutral  switching  point  (curve  p„)  has  smaller  values  and  also  that  its  sign 
never  changes  (compare  with  curves  pi  and  P2).  This  is  the  reason  why  the  neutral 
switching  principal  provides  smoother  control  of  a  vehicle. 
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Figure  38.  Trajectory  for  Leaving  Points  at  t/  =  7,  4.712,  3.5,  3,  2.5,  2,  1.5  and  1. 

k 


Figure  39.  Curvature  Plots  for  Leaving  Points  at  y  =  7,  4.712,  3.5,  3,  2.5,  2,  1.5 
and  1. 

Notice  that  for  the  leaving  points  y  =  4.712  (neutral  switching)  and  y  =  3.5, 
the  curves  in  the  x  xy  plot  are  very  close  {y  =  4.712  is  the  furtherest  curve  from  the 
origin  and  y  =  3.5  is  the  one  that  follows  it).  However,  in  Figure  39  (y  =  3.5  is  the 
one  above  p„),  the  plot  s  x  k,  or  path  —  length  x  curvature,  shows  a  big  difference. 

An  interesting  point  found  during  this  research  is  that  for  the  leaving  points 
after  neutral  switching,  their  paths  have  a  maxima  curvature  close  to  the  same  point. 
Another  remarkable  issue  is  that  those  curves  also  cross  together  at  the  same  path 
length  value,  meaning  that  no  matter  how  late  you  leave,  you  will  always  have  the 
same  instant  curvature  at  the  same  traveled  distance  (for  a  fixed  a).  These  two 
characteristics  of  the  neutral  switching  control  theory  were  discovered  at  the  end  of 
this  research.  They  are  characteristics  that  deserve  future  examination.  Appendix  I 
shows  the  high  level  C  code  used  to  control  “Yamabico’s”  motion,  using  this  theory. 
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VI.  CONCLUSION  AND  FUTURE  WORK 


A.  RECOGNITION/LOCALIZATION  SYSTEM 

This  work  shows  that  it  is  possible  to  use  computer  vision  techniques  for  UXO 
detection  with  good  accuracy  for  simple  scenes  and  limited  accuracy  for  complicated 
scenes.  Both  the  performance  and  the  accuracy  of  the  system  can  be  improved  in  a 
number  of  ways.  The  greatest  need  is  for  a  much  larger  set  of  training  data  which  will 
improve  the  accuracy  of  the  system.  Secondly,  experiments  in  the  extraction  of  high- 
order  features  such  as  boundaries  could  lead  to  improved  recognition  results  at  the 
cost  of  increased  processing  time.  The  results  indicate  that  our  scheme  is  much  better 
at  locating  than  identifying  objects.  The  use  of  more  global  features  for  identification 
may  be  necessary,  instead  of  the  local  ones  used  in  this  research. 

A  significant  increase  in  performance  could  be  achieved  through  the  fusion  of 
multiple  sensor  data  such  as  that  from  magnetometers  and  video.  It  is  important  to 
note  that  the  techniques  described  here  including  the  wavelet  feature  extraction  and 
the  neural  network  Stages  could  be  used  with  other  kinds  of  data. 

A  better  refined  template  scanning  scheme  is  another  avenue  of  future  research. 
Templates  could  be  created  to  optimally  detect  the  objects  in  the  database.  Since 
our  windows  are  all  rectangular  (oriented  along  the  axis),  more  errors  occurred  for 
objects  at  45°.  A  45°  oriented  template  would  greatly  improve  the  results  for  such 
situation. 

In  conclusion,  this  work  has  shown  that  the  proposed  recognition  system  utiliz¬ 
ing  Wavelet  Feature  Extraction  and  Neural  Networks  is  promising  for  UXO  detection. 
Also,  this  work  has  demonstrated  that  images  can  be  used  as  sensory  input  for  UXO 
detection.  However,  more  experimental  work  is  needed  to  further  refine  the  system. 
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B.  NAVIGATION  SYSTEM 


The  work  done  in  Chapter  V  of  this  thesis  can  be  used  to  improve  a  robot’s 
navigation.  This  is  especially  true  with  regards  to  the  neutral  switching  theory, 
which  was  implemented  for  the  first  time  on  a  robot  ( “Yamabico” )  and  resulted  in 
very  smooth  motion. 

Basically  we  found  the  following  important  observations  and  facts  in  the  area 
of  autonomous  navigation: 

•  The  inclusion  of  gradient  values  (weights)  in  the  edge  detection  algorithm  for 
grayscale  digital  images  does  not  significantly  improve  its  results.  Actually, 
this  result  is  attractive  to  us,  because  the  computationally  inexpensive  method 
we  are  current  using  is  enough  to  obtain  good  results. 

•  The  visibility  algorithm  gave  satisfactory  results  as  expected.  The  work  that 
should  immediately  follows  is  the  integration  of  the  image  understanding  ca¬ 
pability  with  this  visibility  capability  into  the  current  “Yamabico”  software 
system. 

•  The  success  of  the  neutral  switching  function  is  a  big  mile  stone  for  autonomous 
vehicle  research.  Complex  motion  behavior  are  made  possible  for  “Yamabico” 
through  this  algorithm.  As  a  future  plan,  more  detailed  functions  should  be 
designed  and  implemented. 
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APPENDIX  A.  LISP  CODE  FOR  TRAINING  A 
NEURAL  NETWORK  (NN)  USING 
BACK-PROPAGATION 
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File:  neuron. lisp 

NamerJader  Gomes  da  Silva  Filho 

Date : 01/97 

Operating  Environment:  SUN 
Lcinguage :  LISP 


j  > 

; ;  Initial  values  for  the  weights  and  global  variable 

j  > 


(defun  create.weights  (inp  out) 

;; constant  for  random  starting  weight 
)  > 

(setf  RSW  1.0) 

; ;  initial  value  for  beta 
(setf  beta  0.1) 

(setf  SAVED_ERROR  (list.of  (length  inp)  (list_of  (length  (car  out))  0.5))) 

(setf  inp.wlist  ’()) 

(do  ((  i  1  (+  i  1))) 

((  >  i  (length  (car  inp)))  ’DONE) 

(setf  inp_wlist (append  inp_wlist 
(list 

(make_random_weight_list 
(length  (car  inp))  RSW))))) 

(setf  hid.wlist  ’()) 

(do  ((  i  1  (+  i  1))) 

((  >  i  (length  (car  out)))  ’DONE) 

(setf  hid.wlist (append  hid.wlist 
(list 

(make_random_weight_list 
(length  (car  inp))  RSW))))) 


;  ;Genetates  a  list  of  repeated  inputs  of  the  same  size  of 
;  ;the  weigth  list. 


76 


J  ) 

(defun  make. input _list  (input  w.list) 
(list.of  (length  w.list)  input)) 


this  provides  a  steuidard  activation 
function  for  a  neural  net — the  logistic 
sigmoid  function 
f(x)  =  1  /  (1  +  e  (-x)) 


(defun  sigmoid  (x) 

(/  (  +  1  (exp  (-  x))))) 


; ;  this  does  summation  on  a  vector 

t  > 

; ;  >  (summation  vector) 

;;  >  (summation  ’(2.0  3.0  2.6)) 

;;  7.6 

y  y 

(defun  summation  (vector) 

(eval 

(cons  ’+  vector))) 


; ;  this  does  multiplication  of  two  vectors 

y  y 

;;  >  (vector.multiply  ’(Oil)  ’(-4.8  5.2  -2.3)) 
;;  (0  5.2  -2.3) 

y  y 

(defun  vector.multiply  (vectorl  vector2) 

(mapcar  #’*  vectorl  vector2)) 

y  y 

; ;  this  does  multiplication  of  three  vectors 

y  y 

y  y 

(defun  vector_multiply3  (vectorl  vector2  vector3) 
(mapcar  #’*  vectorl  vector2  vector3)) 
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; ;  this  makes  a  list  n  elements  long  of  elt 

; ;  >  (list-of  3  2.0) 

;;  (2.0  2.0  2.0) 

i  i 

(defun  list_of  (n  elt) 

(if  (zerop  n) 
nil 

(cons  elt  (list.of  (  -  n  1)  elt)))) 


; ;  this  makes  a  weight  list  n  elements  long 

; ;  of  random  weights  between  -RSW  and  RSW  (random  starting  weight) 

>  9 

(defun  make_random_weight_list  (n  rsw) 

(vector_sum  (mapcar  #’rcindom  (list.of  n  (*  2  rsw))) 

(list_of  n  (-  rsw)))) 


; ;  this  does  sum  of  two  vectors 

;;  >  (vector.sum  ’(0  1  1)  ’(-4.8  5.2  -2.3)) 
; ;  (-4.8  6.2  -1.3) 

(defun  vector_sum  (vectorl  vector2) 

(mapcar  #’+  vectorl  vector2)) 


; ; Evaluates  one  node  according  to  a  list  of  inputs 

;;and  a  list  of  weigths  for  that  node 

;;  >  (node.eval  ’(001)  ’(-4.8  4.6  -2.6)) 

;;  0.06913843 

(defun  node_eval  (inputs  weigths) 

(sigmoid  (summation  (vector_multiply  inputs  weigths)))) 


Evaluates  one  level,  generating  a  list  of  values 
that  will  be  the  input  for  the  next  level 

>  (level.eval  ’ (0  0)  inp_wlist) 

(0.06913843  0.03916572) 


78 


(defun  level_eval  (input  w_list) 

(mapcar  #’node_eval  (make_input_list  input  w_list)  w_list)) 


; ;  CALCULATE  ERROR  VECTOR  FOR  OUTPUT  NODES 
; ;  this  compares  calculated  output  with 
; ;  expected  output .  And  save  the  errors  in  the 
;;  variable  SAVED_ERR0R_0UT 

t  } 

; ;  >  (calc_output .error  ’(1.0  0.0)  ’(0.88  0.13)  ) 
;;  (+0.12  -0.13) 

t  > 

(defun  calc_output_error  (exp.output  calc.output) 
(setf  SAVED_ERR0R_0UT 
(mapcar  #’-  exp.output  calc.output))) 


; ;  CALCULATE  DELTA  WEIGHT 

; ;  delta.weight  =  b  *  E  *  w 

; ;  Note  that  the  elements  are  vectors 

(defun  calculate_delta_weight  (beta.shift  error  arc.weight) 
(vector_multiply3  beta.shift  error  arc.weight)) 


; ;  CALCULATE  ERROR  ONE  HIDDEN  NODE 


(defun  calculate.f inal_error_one_hidden  (incoming_error  node.value) 
(*  incoming.error  (-  1  node.value)  node.value)) 


; ;  CONVERT  WEIGHT.LIST  TO  BACKPROP.WEIGHT  LIST 
; ;  conv_weight_list 
(defun  conv_weight_list  (x) 

(apply  ’mapcar  #’list  x)) 


Does  the  usual  forward  evaluation,  saving  the  values 
of  the  hidden  level 
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; ;  conv_weight_list 

(defun  forward_eval  (input  w_listl  w_list2) 
(setf  OUTPUT  (level.eval  (setf  SAVED.HID 
(level.eval  input  w_listl))  w_list2)) 

) 


; ;  Does  a  node  evaluation  in  a  back  propagation 

f  t 

(defun  node_eval_back  (inputs  weigths) 

(summation  (vector_multiply  inputs  weigths)) 

) 


; ;  Does  the  level  evaluation  in  the  back  propagation, 

; ;  including  the  derivative 

(defun  level_eval_back  (input_back  w_list  saved_level) 

(mapcar  # ’ calculate_f inal_error_one_hidden 

(mapcar  #’node_eval_back  (make_input_list  input _back  w_list)  w_list) 
saved_level) 

) 


; ;  Creates  a  list  of  the  beta  values  in  the  same 
; ;  format  of  the  weights  list  given 

(defun  list_beta  (beta_shift  w_list) 

(list_of  (length  w_list)  (list.of  (length(car  w_list))  beta.shift))) 


; ;  Function  that  applies  calculate_delta_weight  over 
;;  each  element  of  the  three  lists. 

; ;  Note  that  each  element  are  also  a  list 

(defun  calc_delta_weight  (beta.list  error_list  weight_list) 

(mapcar  #’calculate_delta_weight  beta_list  error_list  weight_list) 


; ;  Calculates  the  new  weights  by  just  summing  the 
; ;  delta  with  the  old  weights 

(defun  calc_new_weight  (delta.list  w.list) 
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(mapceir  #’vector_suiii  delta_list  w_list) 


) 


; ;  Function  that  calculates  the  new  weigths 
>  > 

(defun  backeval  (w_list  error.list  income.value  input) 
(calc  _ne w_ we i ght 
( cal c_de It a_we ight 
(list_beta  beta  w_list) 

(conv_weight_list (list_of  (length  input)  error.list  )) 
(list.of  (length  w_list)  income .value)) 
w.list 
) 


; ;  output  results 

>  y 

(defun  print.results  (input  output) 

(setf  resultname  (make-pathname  :naime  "weilist.dat")) 

(setf  outfile  (open  resultname  : direction  : output  : if -exists  : rename 
: if-does-not-exist  : create)) 

(format  outfile  ""'/.mean.error  (mean.error  SAVED.ERROR) ) 

(format  outfile  " "‘/.Input :  ~A"7oExp_ Output :  ~A"*/,Input  Weights ;  "A~’/,Hidden  Weights ;  "A" 
input  output  inp.wlist  hid.wlist) 

(format  outfile  "~*/,CALC_OUTPUT:"A"‘/."OUTPUT_LIST) 

(close  outfile) 


(setf  resultname  (make-pathname  :name  "weights. lisp")) 

(setf  outfile  (open  resultname  : direction  : output  : if -exists  : rename 
: if-does-not-exist  : create)) 

(format  outfile  ""‘/.(setf  inp.wlist  ’"A) "'/.(setf  hid.wlist  ’"A) "7." 
inp.wlist  hid.wlist) 

(close  outfile) 

’DONE 

) 


y  y 

; ;  fimction  user  to  calculate  the  square  root  of  the 
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; ;  meain  of  the  errors 
(defun  inp_error  (w_list) 

(sqrt (summation (vector_multiply  w_list  w_list)))) 


; ;  function  user  to  calculate  the  mecin  error  of  several 
; ;  inputs 

(defun  mean_error  (w_list) 

(/  (summation  (mapcar  #’inp_error  w_list)) 

(length  w_list)) 

) 


; ;  function  user  to  calculate  the  back  prop  of  a 
; ;  single  input 

>  y 

(defun  calc_sing_inp  (inp  out) 

(setf  inp.wlist 

(backeval  inp_wlist  (level_eval_back  (calc_output_error  out 
(f orward_eval  inp  inp_wlist  hid_wlist)) 

(conv_weight_list  hid_wlist)  SAVED_HID)  inp 
inp) 

) 

(setf  hid_wlist 

(backeval  hid.wlist  SAVED.ERROR.OUT  SAVED.HID  inp) 

) 

(setf  SAVED.ERROR  (append  SAVED.ERROR  (list  SAVED_ERROR_OUT) ) ) 
(setf  OUTPUT.LIST  (append  OUTPUT.LIST  (list  OUTPUT))) 

) 


; ;  function  for  loading  weights  from  previous  training 
>  } 

(defun  load_weights  (weights) 

(setf  weightname  (mcike -pathname  :narae  weights)) 

(with-open-f ile  (str  weightname  :direction  : input  : if-does-not-exist  rerror) 
(do  ((expression  (read  str  nil  'eof) 

(read  str  nil  ’eof))) 

((eql  expression  'eof)) 
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) 


(eval  expression))) 


; ;  Main  function 

;;  NOTE:  This  reuses  the  previous  calculated  weights 
; ;  to  the  current  single  input 

f  i 

(defun  main  (input  output) 

(create. weights  input  output) 

;;  (load.weights  "weights. lisp") 

(setf  pathname  (make-pathname  :name  "mean.txt")) 

(with-open-f ile  (str  pathname  : direction  : output  : if-does-not-exist  : create 
: if -exists  : rename)) 

(setf  temp.error  ’2.0) 

(setf  ERROR  (mean.error  SAVED.ERROR) ) 

(do  ((  i  1  (+  i  1))) 

((  <  ERROR  0.02)  (print .results  input  output)) 

(setf  SAVED.ERROR  ’()) 

(setf  OUTPUT.LIST  ’()) 

(mapcar  #’calc_sing_inp  input  output) 

(setf  ERROR  (mean.error  SAVED.ERROR)) 

(cond 

((  <  ERROR  0.01) (setf  beta  0.005)) 

((  <  ERROR  0.05) (setf  beta  0.02)) 

((  <  ERROR  0.1) (setf  beta  0.025)) 

((  <  ERROR  0.2) (setf  beta  0.03)) 

((  <  ERROR  0.3) (setf  beta  0.045)) 

((  <  ERROR  0.4) (setf  beta  0.05)) 

((  <  ERROR  0.5) (setf  beta  0.055)) 

(  t  (setf  beta  0.06))) 

(setf  temp.error  ERROR) 

(if  (zerop  (rem  i  10)) 

(format  t  "~*/,mean_error:~A~’/,Iteration  ~A~y.beta:  "A"*/," 

(mean.error  SAVED.ERROR)  i  beta)) 

(if  (zerop  (rem  i  200)) 

(print .results  input  output)) 
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(with-open-f ile  (str  pathname  rdirection  ; output  :if-exists  .’append 
if-does-not-exist  : create) 

(format  str  "~A  ~A  "A"'/."  i  (mean_error  SAVED_ERROR) 
beta)) 

) 


84 


APPENDIX  B.  PROLOG  CODE  OF  A  NEURAL 

NETWORK 
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/*  Language  :  Quintus  Prolog  Release  3.1.1  */ 
/*  Description;  Program  to  implement  a  3-layer  NN  with  15  inputs,  */ 
/*  15  hidden  nodes  cind  5  output  nodes .  */ 
/*  Authors  :  Prof.  Neil  Rowe  and  Jader  Filho  */ 
/*  Last  Update:  03/24/1997  */ 


assert_weights  :-  abolish(strength/3) ,abolish(strength/2) , 
as  sertz (strength (hid_node ,  1 , 

[0 . 10280146 , 1 . 0383518 , -0 . 15337943 , 13 . 348852 , 0 . 2140507 , -4 . 999327 , 

1 1 . 041899 , -1 . 376764 , 9 . 722739 , -2 . 674495 , 7 . 643388 ,-0.1 1498318 , 

-0 . 74958926 , 1 . 1124623 , 1 . 2203351] ) ) , 

assertz (strength (hid_node , 2 , [1 . 3599663 , 2 .0130012 , -5 . 7742586 , -6 . 144408 , 
-0 . 3617554 , 0 . 49077615 , 4 . 2990837 , -1 . 3255733 , -0 . 10300044 , 1 . 7859062 , 

-2 . 1418078 , -0 . 8528033 , -0 . 87857527 , 1 . 8577701 , -0 . 6500677] ) ) , 

assertz (strength (hid_node , 3 , [7 . 299552 ,-0.1 1480039 , 4 . 1539264 , -5 . 954579 , 

1 . 9724478 , 0 . 8563504 , 2 . 554235 , 3 . 1276588 , -5 . 577703 , -7 . 7033744 , 0 . 9631491 , 

-0 . 31658006 , 1 . 1658579 , -0 . 7200168 , -0 . 8751486] ) ) , 

assertz (strength (hid_node , 4 , [2 . 352219 , 0 . 9798964 , 7 . 387 131,-4. 302696 , 

1 . 3159721 , -4 . 255448 , -2 . 2222114 , 7 . 3860474 ,-0.1 10816374 , -0 . 15095304 , 

1 . 3264731 , 1 . 761269 , -1 . 9182163 , -0 . 08970505 , 2 . 1381326] ) ) , 

assertz (strength (hid_node , 5 , [0 . 97137606 , 2 . 0978968 , -1 . 5668068 , 5 . 3624883 , 
-0.3900549,0. 7947839 ,-4.413633,1. 5507306 , -0 . 6049893 , -0 . 547322 1 , 

1 . 7741257 , 0 .7199787 , -1 . 7051593 , 1 . 9850469 , 0 . 3874647] ) ) , 

assertz (strength (hid_node , 6 , [-7 . 5278397 , -3 . 1371894 , 6 . 8534527 , 9 . 540047 , 
3.971589,6. 7969294 , 9 . 477654 , - 1 . 8458934 ,-13.109152,-2. 2465706 , 

-15 . 705089 , 1 . 2939371 , 1 . 7863597 , -0 . 2075032 , 0 . 7623969] ) ) , 

assertz ( strength (hid.node , 7 , [-1 . 5873216 , -1 . 033604 , -1 . 7575526 , 

-11 . 586975 , 1 . 1679307 , -2 .6128724 , 2 . 420472 , -0 . 14453241 , 1 . 3027858 , 

-2 . 2243912 , 9 . 150505 , -0 . 76785827 , 0 . 19931579 , -0 . 36563465 , 1 . 6281044] ) ) , 
assertz (strength (hid_node , 8 , [- 1 1 . 580848 , 3 . 8350782 , 3 . 5109222 , 

4 . 163468 , -3 . 4610188 , -5 . 8272057 , -4 . 719808 , 5 . 126142 , 3 . 3443942 , 

-0 . 88241 ,10.711175,2. 0836523 , 0 . 43011373 , 0 . 7488813 , -2 . 1782956] ) ) , 
assertz (strength (hid_node , 9 , [-1 1 . 183245 , -2 . 8265104 , -3 . 0190945 , 

3 . 825569 , -9 . 887493 , -8 . 926091 , -8 . 578522 , -9 . 81599 , 10 . 6942625 , 

5 . 7835407 , 1 .2130237 , 1 . 3198781 , -1 . 6814234 , -0 . 7457888 , -0 . 3643858] ) ) , 

assertz(strength(hid_node, 10, [-9.208287,-0 . 5136238,2.4696598, 1.4010974, 
-3 . 0033565 , -10 . 368849 , -5 . 825708 , 8 . 918923 , 5 . 9908056 , 2 . 074206 , 

24 .38145,0. 3551642 , -0 . 0467055 14,-0. 271937 , 1 . 8054696] ) ) , 

assertz (strength (hid_node ,11, [5.5495863,-1 . 3832068,15.012902, 

-0 . 87178606 , -1 . 5800465 , 2 . 5315452 , -1 . 6559813 , -9 . 013141 , 3 . 2857537 , 
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-3 . 6133842 , 11 • 880634 , -0 . 42965722 . 3 . 214854 , 0 . 019956164 , -1 . 1296868] ) ) , 
assertz (strength(hid_node , 12 , [9 . 189349 , 9 . 68774 , 7 . 1437473 , 2 . 5421433 , 

-0 . 31797215 , -1 . 2867705 , 0 . 6343578 , 5 . 5447206 , 4 . 213276 , -8 . 133626 , 

-5 . 8887916 , 1 . 5713207 , -0 . 4948193 , -1 . 6689208 , -0 . 98711646] ) ) . 

assertz (strength (hid.node , 13 , [11 . 598041 , -0 . 612225 , -9 . 02137 1,-11. 469496 , 

1 . 5 119609 , 0 . 0758392 14,1. 7730261 , -1 . 4520669 , -5 . 056494 , -0 . 42691928 , 

1 . 5322973 , 1 . 5731288 , 1 . 2850229 , -0 . 81217283 , 0 . 45320952] ) ) , 

assertz (strength (hid_node , 14 , [3 . 8388643 , 1 . 3650446 , -3 . 2947 173 , 5 . 2161503 , 
-5 . 5149713 , -5 . 4758544 , -4 . 51567 , -7 . 87467 , 3 . 2831373 , 1 . 8662292 , 

6 . 1908507 , 0 . 41444215 , 3 . 1471112 , 0 . 6712416 , 0 . 34379712] ) )  , 

assertz (strength (hid_node , 15 , [4 . 03495 , 0 . 12459024 , -1 . 4378815 , -13 . 7728405 , 
2 . 6996377 , 5 . 941888 , 7 . 072829 , -8 . 149348 , 1 . 1662475 ,-3.6911345,8. 328426 , 

-0 . 24888588 , 0 . 25269714 , 1 . 4399127 , 3 . 127232] ) ) , 


assertz (strength ( out _node , [[6 . 545533,5.7997675,-1 .7047756,-4.082592, 
4 . 3749847 , 0 . 9555788 , 5 . 227637 , 1 . 7942159 , -0 . 114222795 , 6 . 661545 , 

7 . 2471204 , 0 . 33012316 , 5 . 5946555 , 1 . 5604621 , -12 . 4767685] ,[1.940118, 

2 . 018785 , -1 . 3316723 , -1 . 7319521 , 3 . 1654818 , 10 . 293487 , -14 . 334564 , 

8 . 87022 , -8 . 368377 , -12 . 34091 , 4 . 4616256 , 4 . 8475647 , -2 . 2759478 , 

0 . 46862486 , 6 . 626953] , [-6 . 262649 , 1 . 4892993 , 3 . 0227327 , -0 . 91400874 , 

2 . 423398 , -14 . 339465 , -16 . 798841 . 14 . 285471 , -7 . 921312 , 7 . 9008074 , 

4 . 1938386 , 10 . 859216 , 4 . 2084055 , -5 . 5930195 , 1 . 3791995] , [-8 . 259792 , 

-4 . 4346175 , 12 . 238324 , 5 . 9989915 , 2 . 793125 , -10 . 320029 ,1.0851719, 

-3 .8516119,-7. 3822327 , -5 . 060156 , 0 . 2045436 , -11 . 65261 , -5 . 4408092 , 

13 . 733666 , 13 . 449633] , [-2 . 0871668 , -1 . 1725345 , -10 . 751292 , -7 . 295434 , 

-0 . 7270514 . 12 . 000224 , -14 . 410152 , 0 . 3804165 , 0 . 47677583,4. 5853095 , 

11 . 158862 , -9 . 278686 , 7 . 908131 , -2 . 4952629 , 6 . 78489] ] ) )  . 


: -ensure_loaded (library (math) ) , ensure_loaded (library (maplist) )  , 
ensure_loaded(library (lists)) ,  ensure_loaded(’fig5.tmp’) , 
ensure_loaded( ' identity’ ) , assert .weights . 


go(OOO)  :-  tell (results) ,neural_net(0) ,  maplist (nice_read,0, 00) , 
maplist (nicelist, 00, 000) ,  maplist (nicew, 000) ,told. 

nicew([K,X])  write (’Shape  ’) ,writeq(K) , write ( ’  is:  (’), 

maplist (nicewbit, X) , write (’  )  ’) ,identity(X,ID) , 
writeq(ID) , ! ,nl. 
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nicewC [K,X] ) . 


nicewbit(X)  write (’  ’ ) ,writeq(X) . 

nicelist ( [K,X] , [K,NX] )  maplist (conv_int,X,NX) . 

conv_int(X,NX)  (X<0.5)  ->  NX  is  0  I  NX  is  1. 

neural_net (00) : -  inid_level_out (ML) ,  strength (out .node , W) , length (W , Y) , 
list.of (ML,Y,Z) , maplist (neur,Z,W,YY) , transpose (YY, 00) . 

mid_level_out(ML)  bagof ( [SN,0] ,mid_level( [SN,0] ) ,ML) . 

mid_levell(IL,SL)  input_list(hid_node,SN,IL) , 

corresponding.strengths (hid.node , IL , SL) . 

mid_level([SN,0])  input.list (hid_node,SN,IL) , 

corresponding.strengths (hid.node , IL , SL) ,  neuron.eval ( IL , SL , 0) . 

inp.bag  tell(out) ,bagof (IL,SN“input_list(hid_node,SN,IL) ,ML) , 
maplist (lisp.input, ML) ,nl,fail. 

lisp_input(X)  write(’ (’) ,maplist(lisp_inputl,X) ,write(’  )’),nl. 

lisp.inputK  [K,X]  )  write ('  ’)  ,writeq(X) . 


inp.bag  told. 


input_list(C,SN,IL) 
input (hid.node , 1 , SN , X) 
input (hid.node , 2 , SN , X) 
input (hid.node , 3 , SN , X) 
input (hid.node , 4 , SN , X) 
input (hid.node , 5 , SN , X) 
X  is  (R+G+B)/2000. 
input (hid.node , 6 , SN , X) 
X  is  R/650. 

input (hid.node , 7 , SN , X) 
X  is  G/650. 

input (hid.node , 8 , SN , X) 
X  is  B/650. 


bagof ([K,X] .input (C,K,SN,X),IL) . 

shape(SN, A, ,sqrt(A, XX) ,X  is  XX/15. 
shape(SN,_,C,B,_,_,_,_),X  is  B/(B+C). 
shape(SN, . 
shape(SN, . 
shape (SN, [R,G,B I , 

shape(SN, [R|_] ,_,_) , 

shape  (SN,  L,  G I  _],_,_)  , 

shape (SN, B I _],_,_) , 


input(hid_node,9,SN,X)  shape(SN, XX, _) ,X  is  XX/500. 
input (hid.node , 10,SN,X)  shape (SN, SR, SG, SB  I _],_,_) , 
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X  is  (SR+SG+SB)/50. 

input (hid.node, 11, SN,X)  shape(SN, A, [XX, ,X  is  XX/A. 
input (hid.node, 12, SN,X)  shape(SN,A,_,_,_,_,_, [_,XX,_,_,_,_]) ,X  is  XX/A. 
input (hid.node, 13, SN,X)  shape(SN,A,_,_,_,_,_, [_,_,XX,_,_,_]) ,X  is  XX/A. 
input (hid.node, 14, SN,X)  shape(SN, A, XX, ,X  is  XX/A. 
input (hid.node, 15, SN,X)  shape(SN, A,_, _,XX,_])  ,X  is  XX/A. 


nice.readd,  [X,Y])  transposed,  [[X I XX]  ,Y] )  . 

corresponding_strengths  (C ,[],[]) . 

corresponding_strengths (C , [[K,X] |IL] , [S|SL])  strength (C,K,S) , ! , 

corresponding_strengths (C , IL , SL) . 


list.of  ([]  ,L,  []) . 
list_of (M,0, [])  . 
list_of (M,l, [M]) . 

list.of (M,L, [MIML])  LL  is  L-l,list_of (M,LL,ML) , ! . 
member (X , L)  : -  append (_ , [X I _] , L) . 
neurCn  ,_,  []) . 

neur([[K,X] |XX] ,Y, [[K,Z] |ZZ]) maplist(mult,X,Y,Zl) ,sumup(Zl,SUM) , 
sigmoid(SUM,Z) ,  ! ,neur(XX,Y,ZZ) . 

mult(X,Y,Z)  Z  is  X*Y. 

sumup([Item] ,Item) . 

sumupC [ItemiList]  ,Sum)  sumup (List, Partsum) , Sum  is  Partsum+Item. 
neuron_eval (IL ,  [],[]). 

neuron_eval (IL , [EL  I WL]  ,  [0 1 00] )  : -  neuron (IL , EL , 0) ,  ! ,  neuron.eval (IL , WL , 00) . 
neuron(IL,WL,0)  node_eval(IL,WL,RO) ,  sigmoid (RO, 0) . 
node_eval([]  ,  []  ,0) . 

node_eval([[K,X]  IIL]  ,  [SISL]  ,P)  node_eval(IL,SL,P2)  ,  P  is  P2+(S=t=X). 
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node_eval([X|IL] , [SiSL] ,P)  node_eval(IL,SL,P2) ,  P  is  P2+(S*X) . 
sigmoid(X,Y)  XX  is  -1*X,  exp(XX,YY),Y  is  1/(1+YY) . 


APPENDIX  C.  REGIONS  EXTRACTED  OF  AN 

IMAGE 
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Regions  (shapes)  extracted  from  Figure  7  by  the  Feature  Extraction  Program 


[Ref.  1]: 


shaped, 278, 45, 50, [1,1,41,10,0.672,0.917] , [848.655,853.058,842.784,48.28, 
55.762,61.311,67.182,-0.554,0.17] ,105.344, [47 . 048,0 . 366,3.317,6, 0,o] ) . 
shape (2 , 493 , 1 17 , 23 , [40 , 1 , 86 , 17 , 0 . 16 , 0 . 832] , [663 .862,610. 069 ,582.138,51. 039 , 
52.286,59.567,121.599,0.008,0.156] ,123.099, [94. 213,0 . 37,4.62 , 11 , l,o] ) . 
shape(3, 87, 24, 19, [53,1,71,8,0.094,0.94] , [819.713,817.954,796.264,22.087, 
25.83,36.713,66.173,-0.287,-0.095] ,148.086, [26. 041, 0.456, 2. 892, 2, 0, o])  . 
shape (4, 5989, 540, 242, [1,1,110,88,0.058,0.053] , [813.709,805.441,774.308, 
50.457,67.9,73.765,89.904,0.045,0.34] ,155.262, [288.21,0.287,3.341, 

36, 9, o]). 

shape(5,41,30,0, [90,3,104,6,0.752,0.908] , [727.268,663.829,641.439, 
29.686,41.122,41.645,76.388,0.261,0.321] ,101.607, [31.549,0.222, 
0.555,2,0,c]) . 

shape (6, 449, 118, 12, [1,4,45,22,0.602,0.719] , [674.548,646.038,615.37,66.05, 
71. 78, 82. 613, 133. 459, -0.1, 0.243], 150. 196, [119.912,0.349,4.376,16,0,0]) . 
shape(7, 204, 62,0, [58,26,80,39,0.244,0.276] , [674.167,612.917,570.917,52.208, 
54.834,62.344,119.918,0.269,-0.52] ,134.525, [63.808,0 .361 ,3. 09, 10 , 1 ,c] ) . 
shape(8,23,14,5, [1,32,7,36,0.95,0.234] , [657.826,640.087,602.391,28.106, 
32.336,39.417,94.349,0.058,0.02] ,110.229, [14.146,0.32,3.956,1,0,0])  . 
shape (9, 101, 39, 5, [95,36,110,45,0.86,0.068] , [693.129,626.475,582.545,41.357, 
33.095,44.039,100.049,0.091,-0.188] ,104.579, [39.406,0.247,3.224, 

3, 1 ,o] )  . 

shape (10, 558, 133,0, [39,37,66,76,0.02,0.251] , [466.19,333.389,251.222,50.419, 
62.019,63.829,115.373,0.332,0.245] ,237.639, [142.844,0.353,2.871, 

18.1, c]). 

shape (11, 71, 36,0, [66,39,74,50,0.252,0.016] , [572.732,487.972,443.437, 
44.348,52.718,59.354,115.552,0.224,-0.135] ,132.608, [37.621,0.343, 
3.056,4,l,c]) . 

shape(12, 101, 53,0, [40,40,61,49,0.068,0.004] , [667.04,598.366,541.812, 
60.479,83.558,98.276,175.31,0.027,0.0] ,169.743, [55.908,0.369, 

2.582.8.1, c]) . 

shape (13, 115, 47,0, [71,40,87,49,0.415,0.004]  , [630.035,563.513,519.609, 
41.538,51.233,56.188,106.783,0.442,0.011] ,99.857, [48.964,0.298, 

3.08,5,2,c]) . 

shape (14, 69, 38,0, [91,41,106,51,0.774,0.063] , [722.377,652.159,615.203, 
39.96,38.065,43.247,100.638,-0.149,-0.282] ,111.373, [41.211,0.429, 

2.459.3.1, c]) . 

shape(15,57,45,0, [23,43,39,51,0.448,0.037]  , [678.509,608.719,547.877,36.067, 
26.915,46.803,82.866,-0.443,-0.179] ,123.037, [48.034,0.391,3.925,10, 

2 ,  c]  )  . 
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shape(16,48,35,0, [35,44,48,55,0.294,0.115] , [580.125,484.5,420.75,45.856, 
41.351,41.569,88.188,0.224,-0.426] ,104.671, [41. 06, 0.384, 2. 5, 5, 1, c])  . 
shape(17,18,10,6, [1,46,3,51,0.973,0.091] , [646.0,589.333,524.167,50.047, 
56.949,52.321,122.755,0.546,-0.417] ,147.224, [9. 627, 0.217, 4. 897, 0, 0, o]) . 
shape(18,92,42,0, [28,46,39,57,0.427,0.163] , [619.761,546.587,484.5,44.445, 
51.547,58.81,119.911,-0.1,-0.191] ,105.127, [42. 662, 0.332, 2. 745, 4, 2, c]) . 
shape (19, 313, 89, 12, [47,63,76,88,0.059,0.731] , [742.677,708.786,663.978, 
72.554,103.744,111.509,141.487,-0.418,-0.413] ,221.277, [95.888,0.363, 
3.307,10,0,0]). 

shape (20, 56, 37,0, [61,65,66,81,0.164,0.634] , [582.554,498.768,435.929,81.116, 
99.608,116.033,206.514,0.213,0.217] ,232.437, [39.788,0.265,1 .393, 

2,l,c])  . 

shape(21, 371, 147,4, [20,68,59,88,0.285,0.794] , [673.31,638.668,598.528, 
61.291,76.491,89.743,138.089,0.164,0.109] ,145.861, [115.834,0.313, 
4.12,14,4,0]). 

shape(22, 115,44,0, [24,76,39,86,0.445,0.856] , [524.783,457.817,401.939,45.479, 
51.306,63.537,103.258,0.268,0.082] ,151.837, [46. 239, 0.343, 1.991, 3, 1, c] ) . 
shape (23, 31, 17, 14, [51,86,64,88,0.051,0.973] , [567.032,494.645,438.71,29.46, 
31.244,27.79,71.366,0.091,0.042] ,118.429, [17. 152, 0.278, 3. 793, 0,0, o] ) . 
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APPENDIX  D.  C  CODE  FOR  EXTRACTING 
WAVELET  FEATURES  AND  SCANNING  AN 

IMAGE 
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/  ****=|t****=(:*******!(:**4:!(:***!»:*********!t:*!|t**:(c!|:*  **♦  +  **♦*  **=!<***!(:*  **♦***♦:*:  ♦**!(:***** 

File:  trainset.c 

Name:  Jader  Gomes  da  Silva  Filho 
Date :  05/97 

Operating  Environment:  Windows  95 
Compiler:  MS  Visual  C++ 

Description:  Program  used  to  extract  features  from  a  image 

/* . Include  necessary  definitions  */ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <mil.h> 

#include  <math.h> 

#include  "wtn.h" 

#include  "daub4.h" 

#include  "nrutil . h" 

#include  "util.h" 

void  main (void) 

■C 

MIL_ID  MilApplication;  /*  Application  identifier.  */ 

MIL_ID  MilSystem;  /*  System  identifier.  */ 

MIL_ID  MilGraphld;  /♦  Graphics  context  identifier.  */ 

MIL_ID  MilDisplayO;  /*  Display  0  identifier.  */ 

MIL_ID  MilDisplayl;  /*  Display  1  identifier  */ 

MIL_ID  MilDisplay2;  /*  Display  2  identifier  */ 

MIL_ID  MilDisplayS;  /♦  Display  3  identifier  */ 

MIL_ID  MilDisplay4;  /*  Display  4  identifier  */ 

MIL_ID  Disp_Level_4;  /*  Display  level_4  identifier.  */ 

MIL_ID  MillmageO;  /*  Image  0  buffer  identifier.  */ 

MIL_ID  Millmagel;  /*  Image  1  buffer  identifier.  */ 

MIL_ID  Millmage2;  /*  Image  2  buffer  identifier.  */ 

MIL_ID  MillmageS;  /*  Image  3  buffer  identifier.  */ 

MIL_ID  Millmage4;  /♦  Image  4  buffer  identifier.  */ 

MIL_ID  Level_4;  /*  Image  level_4  buffer  identifier.  */ 

long  ImageSizeX=IMAGE_WIDTH;  /*  Image  width.  */ 

long  ImageSizeY=IMAGE_HEIGHT ;  /*  Image  height.*/ 


unsigned  char 

*tiff_data; 

/* 

Tiff 

image 

*/ 

unsigned  char 

*init_data; 

/* 

Tiff 

image 

*/ 

/*  unsigned 

char  *back_data; 

Tiff 

image 

*/ 
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unsigned  char  *mod_tiff_d;  /*  Tiff  image  */ 

double  ^wavelets;  /*  Wavelets  */ 

double  *wbuf;  /*  Tmp  wavelet  buffer  */ 

double  *level_wbuf;  /*  Level4  of  wavelets  */ 

char  *Image_file;  /*  Name  of  Image  file  */ 

char  Image.list [STRING]  =  "newonel.txt"; 

char  training_file [STRING]  =  "resultl/training" ; 

char  id.file [STRING]  =  "resultl/id" ; 

char  *name ; 

unsigned  long  dim [2] ={ IMAGE. WIDTH,  IMAGE.HEIGHT} ; 

int  i,j,elim=0; 

double  max, min, factor, limit; 

char  *Wave_file  =  "resultl/waveout .tif ” ; 

int  h.level.size  =  IMAGE_WIDTH/(pow(2,LEVEL)) ; 

int  v.level.size  =  IMAGE.HEIGHT/ (pow( 2, LEVEL) ) ; 

int  indice ; 

unsigned  long  dim.w [2] ={h.level_size , v.level.size};  /*  for  level4  inverse  transi 
Feature.Node  ♦output.level ; 

unsigned  char  *level.tiff.d; 

int  wlevel  =  LEVEL; 

int  angle  =  0,  step.eingle  =  STEP.ANGLE; 

double  level.max,  level.min; 

Training.List  *names,  *first.file; 
int  k  =  0,  num.files; 

/* 

* 

*  . Initialize  MIL 

* 

*l 

/*  Allocate  Arrays  */ 

Image.file  =  (char  *)  malloc(STRING*sizeof (char)) ; 
name  =  (char  *)  malloc(STRING*sizeof (char)) ; 

init.data  =  (unsigned  char  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE.BAND) ; 
tiff.data  =  (unsigned  char  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE.BAND) ; 
mod.tiff.d  =  (unsigned  char  *) 

malloc(ImageSizeX*ImageSizeY*IMAGE.BAND) ; 
wavelets  =  (double  *) 

malloc(ImageSizeX*ImageSizeY*IMAGE_BAND*sizeof (double)) ; 
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wbuf  =  (double  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND*sizeof (double) ) ; 
output_level  =  (Feature_Node  *) 

malloc (SIZE_LIST*sizeof (Feature.Mode) ) ; 


if  ((init_data  ==  NULL)  I  I  (tiff_data  ==  NULL)  I |  (mod_tiff_d  ==  NULL)  I | 
(wavelets  ==  NULL)  I  I  (wbuf  ==  NULL)  ||  (output_level  ==  NULL))-C 
printfC'Out  of  memoryXn"); 
exit (0) ; 

> 

/*  Allocate  defaults.  */ 

MappAllocDefault (M_SETUP,  fcMilApplication,  ftMilSystem, 

&MilDisplayO,M_NULL,  M.NULL) ; 

MdispAlloc (MilSystein,M_DEVl ,M_DISPLAY_SETUP,M_DEFAULT, 
feMilDisplayl) ; 

Mdi spAlloc (MilSyst em , M_DEV2 , M_DISPLAY_SETUP , M.DEFAULT , 

&MilDisplay2) ; 

MdispAlloc (MilSystein,M_DEV3,M_DISPLAY_SETUP,M_DEFAULT, 
feMilDisplayS) ; 

MdispAlloc (MilSyst em , M_DEV4 , M_DISPLAY_SETUP , M.DEFAULT , 

&MilDisplay4) ; 

MdispAlloc (MilSystem,M_DEV6,M_DISPLAY_SETUP, M.DEFAULT, 

&Disp_Level_4) ; 

/*  Find  the  best  size  for  the  display  image  depending  on  the  display  type.  */ 
if  (MdispInquire(MilDisplayO,M_DISP_MODE,M_NULL)==M_WINDOWED) 

-C 

/*  Smallest  possible.  */ 

ImageSizeX  =  IMAGE.WIDTH; 

ImageSizeY  =  IMAGE.HEIGHT; 

}else{ 

/*  The  size  of  the  entire  display  to  avoid  possible  display  artifact.  */ 
ImageSizeX  =  min(MdispInquire(MilDisplayO,M_SIZE_X,M_NULL) , 
M_DEF_IMAGE_SIZE_X_MAX) ; 

ImageSizeY  =  min(MdispInquire(MilDisplayO,M_SIZE_Y,M_NULL) , 
M_DEF_IMAGE_SIZE_Y_MAX) ; 

} 

/*  Allocate  a  two-dimensional  image  buffer  to  perform  graphics  in  it.  */ 

Mbuf Alloc2d(MilSystem, 

ImageSizeX, 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP+M_PROC , 
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feMillmageO) ; 

MbufAlloc2d(MilSystein, 

ImageSizeX , 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP+M_PRDC , 

&Mil Image 1) ; 

Mbuf Alloc2d(MilSystem, 

ImageSizeX, 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP , 

&MiIImage2) ; 

Mbuf AIIoc2d (MilSyst em , 

ImageSizeX, 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP+M_PROC , 
feMillmageS) ; 

Mbuf AIIoc2d (MilSystem , 

ACTUAL.WIDTH, 

ACTUAL_HEIGHT, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP+M_PROC , 
&MiIImage4) ; 

Mbuf AIIoc2d (MilSystem, 
h_level_size, 
v_level_size, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP , 

&LeveI_4) ; 

/*  Enable  keying  on  display  if  its  supported.  */ 
if  ((M_DEF_DISPLAY_KEY_ENABLE_ON_ALLOC  !=  0)  && 

Mdispinquire (MilDispIayO ,M_DISP_KEY_SUPPORTED , 0) ) 
MdispOverlayKey (MilDispIayO , M_KEY_ON_COLOR , M_EQUAL , 
OxFFL,M_DEF_DISPLAY_KEY_COLOR) ; 

/*** . Load  original  image**/ 

num_files  =  Ioad_names_and_types(Image_Iist,  &f irst_f ile) ; 
names  =  first_file; 

for  (wIeveI=LEVEL ;  wIeveKLEVEL+LEVEL.NIVEL ;  wlevel++)  { 

h_level_size  =  IMAGE_WIDTH/(pow(2,wIeveI)) ; 
v_level_size  =  IMAGE_HEIGHT/(pow(2,wIeveI)) ; 
dim_w[0]  =  h_level_size ; 
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diin_w[l]  =  v_level_si2e; 


level_wbuf  =  (double  *) 

malloc  (h_level_size!t:v_level_size*IMAGE_BAND*sizeof  (double) ) ; 
level_tiff_d  =  (unsigned  char  *) 

malloc (h_level_size*v_level_size*IMAGE_BAND) ; 
if  (devel.wbuf  ==  NULL)  I  I  (level_tiff_d  ==  NULL))-C 
printfC'Out  of  memory\n") ; 
exit(O) ; 

} 

printf  ("\nProcessing  level  ’/odAn",  wlevel) ; 
init_write_lisp_training(training_file,wlevel) ; 
do  { 

str cpy ( Image_f i le , name  s ->f i le.name ) ; 
strcpy(name,Iinage_f ile) ; 
strcat(Image_file," .tif ")  ; 
printf  ("\n’/os\n"  .name) ; 

/*  Clear  Buffers  */ 

Mbuf Clear (MillraageO, BACK) ; 

MbufClear(MilImagel .BACK) ; 

Mbuf Clear (Millmage2. BACK) ; 

Mbuf Clear (MillmageS . BACK) ; 

Mbuf Clear (Millmage4. BACK) ; 

Mbuf Clear (Level_4. BACK) ; 


/*  Load  the  images  from  the  file.  */ 

Mbuf Import (Image_f ile.  M_TIFF.  M_L0AD.  MilSystem.  &MilImage4) ; 

MimTranslate(MilImage4.  MillmageO.  (IMAGE_WIDTH  -  ACTUAL_WIDTH) /2 . 
(IMAGE.HEIGHT  -  ACTUAL.HEIGHT) /2 .  M.DEFAULT) ; 

MdispSelect (MilDisplayO.  MillmageO) ; 
printf  ("\nlmage  */,d  displayed. \n" .  k+1)  ; 


/* . Compute  wavelet  transform*/ 
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for (angle  =  0;  angle  <  360;  angle  +=  step_angle){ 
printf ("\nProcessing  angle  %d.\n",  angle); 

MbufGet(MilImageO,tiff_data) ; 

copy_char_to_double (tif f _data , wavelets) ; 
log_of (wavelets) ; 
wtn (wavelets, dim, 2, l,daub4) ; 
max  =  min  =  wavelets  [0] ; 
for(i=0;i  <  IMAGE.WIDTH;  i++) 
for(j=0;  j  <  IMAGE.HEIGHT;  j++){ 
if (wavelets [j*IMAGE_WIDTH+i]  >  max) 
max  =  wavelets [j*IMAGE_WIDTH+i] ; 
if (wavelets [j*IMAGE_WIDTH+i]  <  min) 
min  =  wavelets [j*IMAGE_WIDTH+i] ; 

} 

printf  ("Max  wavelet  Coeff  =  y.f\n",max); 
printf  ("Min  wavelet  Coeff  =  */,f\n"  ,min)  ; 
if(fabs(max)  >  fabs(min))  limit  =  fabs(max); 
else  limit  =  fabs(min); 

/*  Display  wavelets  */ 
factor  =  (double)Oxffff /limit ; 

copy_double_to_char_rev (wavelets, mod_tiff_d, factor) ; 

display_buf f er_on_screen(&MilDisplayl ,&MilImagel , 
mod_tiff_d, "\nWavelets  displayed. " ,0) ; 

/♦recovering  the  original  picture  with  the  inverse  DWT*/ 
copy_double_to_double (wavelet s ,wbuf) ; 
wtn ( wbuf , dim ,2,-1, daub4) ; 
copy_double_to_char(wbuf ,mod_tiff_d, 1 .0) ; 

display _buffer_on_screen(&MilDisplay2,&MilImage2,mod_tiff_d, 
"\nRestored  Image  displayed. " ,0) ; 
MgraAlloc(MilSystem,&MilGraphId) ; 

MgraColor(MilGraphId,0) ; 

/*  Box  around  current  level  */ 

MgraRect (MilGraphId,MilImagel ,h_level_size,v_level_size, 
2*h_level_size-l,2*v_level_size-l) ; 

MdispSelect(MilDisplayl,  Millmagel) ; 

/*  building  the  level  buffer*/ 
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level_max  =  level_min  =  fabs (wavelets [v_level_size* 

IMAGE_WIDTH+h_level_size]) : 
f or(i=h_level_size; i  <  h_level_size*2;  i++) 
for(j=v_level_size; j  <  v_level_size*2;  j++){ 

indice  =  (j-v_level_size)*h_level_size+i-h_level_size; 
level_wbuf [indice]  =  wavelets [j*IMAGE_WIDTH+i]  ; 
if (fabs (wavelets [j*IMAGE_WIDTH+i] )  >  level_max) 
level.max  =  fabs (wavelets [j*IMAGE_WIDTH+i]) ; 
if (fabs (wavelets [j *IMAGE_WIDTH+i] )  <  level.min) 
level_min  =  f  abs (wavelets [j*IMAGE_WIDTH+i] ) ; 

} 

printfC'Max  level_wavelet  Coeff  =  %f\n" ,level_max) ; 
printfC'Min  level_wavelet  Coeff  =  */,f\n"  ,level_iiiin) ; 

normalize (level_wbuf,  level_max/MAX_VALUE,  h_level_size ,  v_level_size) ; 

write_wav_level_to_disk(level_wbuf ,  name,  wlevel,  angle, 
h_level_size,  v_level_size) ; 

copy_double_t o_char_rev_level (level_wbuf , level_t if f _d , factor , 
h_level_size ,  v_level_size) ; 
f ind_list_highest (level_wbuf ,  output_level , 
h_level_size ,  v_level_size) ; 
printf ("\n") ; 

for  (i  =  0;  i  <  SIZE.LIST  ;  i++){ 

printf("\nx  =  '/,5.3f,  y  =  7,5. 3f,  value  =  7,5. 3f,  meein  =  7,5. 3f,  variance  =  7,5. 3f", 
output_level [i] .point.x,  output_level [i] . point. y, 
output .level [i] . value ,  output.level [i]  .  mean , 
output.level  [i]  .varieince) ; 

} 

printf ("\n") ; 

write.wav.level.high.to.disk (output.level,  name,  wlevel,  angle, 
h.level.size,  v.level.size) ; 

write.lisp.training (output.level,  name,  wlevel,  angle,  training.! ile) ; 

MbufExport(Wave.file,  M.TIFF,  Millmagel) ; 

Mbuf Clear (MillmageO, BACK) ; 

MimRotate(MilImage4,  MillmageO,  angle+step.angle ,  M.DEFAULT, 

M.DEFAULT,  M.DEFAULT,  M.DEFAULT, M.BICUBIC) ; 

MdispSelect (MilDisplayO,  MillmageO) ; 

} 
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k++; 

}while( (names  =  names->next)  !=  NULL); 
free(level_wbuf ) ; 
free(level_tiff_d) ; 

end_write_lisp_training(training_f ile,  num.files,  first_file,  wlevel) ; 
write_lisp_id_f ile(id_f ile,  num.files,  first_file,  wlevel); 

} 

/* . Clean  Up*/ 

/*  Disable  keying  on  display  if  its  supported.  */ 
if  ((M_DEF_DISPLAY_KEY_DISABLE_ON_FREE  !=  0)  && 

Mdispinquire (MilDisplayO , M_DISP_KEY_SUPPORTED , 0) ) 

MdispOverlayKey (MilDisplayO ,M_KEY_OFF,M_NULL,M_NULL ,M_NULL) ; 

/*  Release  subimages  and  color  image  buffer.  */ 

MbufFree(MillmageO) ; 

MbufFree(Millmagel) ; 

MbufFree(MilImage2) ; 

Mbuf Free (MillmageS) ; 

Mbuf Free (Millmage4) ; 

Mbuf Free (Level_4) ; 

/*  Release  defaults.  */ 

MdispFree (MilDisplayl) ; 

MdispFree(MilDisplay2) ; 

MdispFree (MilDisplayS) ; 

MdispFree (MilDisplay4) ; 

MdispFree (Disp_Level_4) ; 

MappFreeDefault(MilApplication,  MilSystem,  MilDisplayO,  M_NULL,  M_NULL) ; 

free (output .level) ; 

free.f ile_list(&f irst.file) ; 

return; 
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File:  sccinning.c 

Name:  Jader  Gomes  da  Silva  Filho 

Date:  05/97 

Operating  Environment:  Windows  95 
Compiler:  MS  Visual  C++ 

Description:  Scans  an  image  generating  a  file  with  a  set  of  feature  vectors 

+ . Include  necessary  definitions  */ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

# include  <mil.h> 

#include  <math.h> 

#include  "wtn.h" 

#include  "daub4.h" 

#include  "nrutil.h" 

#include  "util.h" 

void  main(void) 

{ 

MIL_ID  MilApplication;  /*  Application  identifier.  */ 

MIL_ID  MilSystem;  /*  System  identifier.  */ 

MIL_ID  MilGraphld;  /*  Graphics  context  identifier.  */ 

MIL_ID  MilDisplayO;  /*  Display  0  identifier.  */ 

MIL_ID  MilDisplayl;  /*  Display  1  identifier  */ 

MIL.ID  MilDisplay2;  /*  Display  2  identifier  */ 

MIL_ID  MilDisplayS;  /*  Display  3  identifier  */ 

MIL_ID  MilDisplay4;  /*  Display  4  identifier  */ 

MIL_ID  Disp_Level_4;  /*  Display  level_4  identifier.  */ 

MIL_ID  MillmageO;  /*  Image  0  buffer  identifier.  */ 

MIL_ID  Millmagel;  /*  Image  1  buffer  identifier.  */ 

MIL_ID  Millmage2;  /*  Image  2  buffer  identifier.  */ 

MIL_ID  MillmageS;  /*  Image  3  buffer  identifier.  */ 

MIL_ID  Millmage4;  /*  Image  4  buffer  identifier.  */ 

MIL.ID  Level_4;  /*  Image  level_4  buffer  identifier.  */ 

long  ImageSizeX=IMAGE_WIDTH;  /*  Image  width.  */ 
long  ImageSizeY=IMAGE_HEIGHT ;  /*  Image  height.*/ 
unsigned  char  *tiff_data;  /*  Tiff  image  */ 

unsigned  char  ♦init.data;  /*  Tiff  image  */ 

/*  unsigned  char  *back_data;  Tiff  image  */ 
unsigned  char  ♦mod_tiff_d;  /*  Tiff  image  */ 
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double  ^wavelets;  /*  Wavelets  */ 

double  *wbuf;  /*  Imp  wavelet  buffer  */ 

double  *level_wbuf;  /*  Level4  of  wavelets  */ 

char  *Image_file;  /*  Name  of  Image  file  */ 

char  Image_list [STRING]  =  "newonel.txt"; 

char  test_file [STRING]  =  "resultS/scan" ; 

char  win_id [STRING]  =  "result3/win_id" ; 

char  *name ; 

unsigned  long  dim[2]={IMAGE_WIDTH,  IMAGE.HEIGHT} ; 

int  i,j,elim=0; 

double  max, min, factor, limit; 

chair  *Wave_file  =  "resultS/waveoutS.tif " ; 

int  h_level_size  =  IMAGE_WIDTH/(pow(2,LEVEL)) ; 

int  v_level_size  =  IMAGE_HEIGHT/(pow(2,LEVEL)) ; 

int  indice ; 

unsigned  long  dim_w[2]=-[h_level_size,v_level_size};  /*  for  level4  inverse  trans 

Feature.Node  *output_level ; 

unsigned  char  *level_tiff_d; 

int  wlevel  =  LEVEL; 

double  level_max,  level_min; 

char  *names; 

int  k  =  0,  num_files; 

/* 

* 

*  . Initialize  MIL 

* 

*/ 

/*  Allocate  Arrays  */ 

Image_file  =  (char  *)  malloc(STRING*sizeof (char)) ; 
name  =  (char  ♦)  malloc(STRING*sizeof (char)) ; 

init_data  =  (unsigned  char  *) 
malloc(ImageSizeX*ImageSizeY*IMAGE_BAND) ; 
tiff_data  =  (unsigned  char  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND) ; 
mod_tiff_d  =  (unsigned  char  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND) ; 
wavelets  =  (double  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND*sizeof (double) ) ; 
wbuf  =  (double  *) 

malloc(ImageSizeX*ImageSizeY*IMAGE_BAND*sizeof (double)) ; 
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output_level  =  (Feature_Node  *) 

malloc (SIZE_LIST*sizeof (Feature.Node) ) ; 


if  ((init.data  ==  NULL)  I  I  (tiff_data  ==  NULL)  I  I  (mod_tiff_d  ==  NULL)  I  I 
(wavelets  ==  NULL)  | I  (wbuf  ==  NULL)  I  I  (output _level  ==  NULL)){ 
printfC'Out  of  memory \n"); 
exit(O) ; 

} 

/*  Allocate  defaults .  */ 

MappAllocDefault(M_SETUP,  feMilApplication,  feMilSystem, 

&MilDisplayO,M_NULL,  M.NULL) ; 

MdispAlloc (MilSystem,M_DEVl ,M_DISPLAY_SETUP,M_DEFAULT, 
feMilDisplayl) ; 

MdispAlloc (MilSystem,M_DEV2,M_DISPLAY_SETUP,M_DEF AULT, 

&MilDisplay2) ; 

MdispAlloc (MilSystem,M_DEV3 ,M_DISPLAY_SETUP ,M_DEFAULT, 

&MilDisplay3) ; 

MdispAlloc (MilSystem,M_DEV4 ,M_DISPLAY_SETUP ,M_DEFAULT, 

&MilDisplay4) ; 

MdispAlloc (MilSystem,M_DEV6 ,M_DISPLAY_SETUP ,M_DEFAULT, 

&Disp_Level_4) ; 

/*  Find  the  best  size  for  the  display  image  depending  on  the  display  type.  */ 
if  (MdispInquire(MilDisplayO,M_DISP_MODE, M.NULL) ==M_WINDOWED) 

{ 

/*  Smallest  possible.  */ 

ImageSizeX  =  IMAGE.WIDTH; 

ImageSizeY  =  IMAGE.HEIGHT; 

}else-[ 

/*  The  size  of  the  entire  display  to  avoid  possible  display  artifact.  */ 
ImageSizeX  =  min  (MdispInquire(MilDisplayO,M_SIZE_X, M.NULL) , 
M.DEF.IMAGE.SIZE.X.MAX) ; 

ImageSizeY  =  min (MdispInquire(MilDisplayO,M_SIZE.Y, M.NULL) , 
M.DEF.IMAGE.SIZE.Y.MAX) ; 

} 

/*  Allocate  a  two-dimensional  image  buffer  to  perform  graphics  in  it.  */ 

Mbuf Alloc2d (MilSystem, 

ImageSizeX, 

ImageSizeY, 

IMAGE.DEPTH+M.UNSIGNED ,  M.IMAGE+M.DISP+M.PROC , 
feMillmageO) ; 

MbufAlloc2d (MilSystem, 
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ImageSizeX, 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP+M_PROC , 
feMillmagel) ; 

MbufAlloc2d(MilSystein, 

ImageSizeX, 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP , 

&MilImage2) ; 

MbufAlloc2d(MilSystem, 

ImageSizeX, 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP+M_PROC , 

&MilImage3) ; 

Mbuf Alloc2d (MilSy stem , 

ACTUAL_WIDTH, 

ACTUAL.HEIGHT, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP+M_PROC , 

&MilImage4) ; 

Mbuf Alloc2d(MilSystem, 
h_level_size, 
v_level_size, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP , 

&Level_4) ; 

/*  Enable  keying  on  display  if  its  supported.  */ 
if  ((M_DEF_DISPLAY_KEY_ENABLE_ON_ALLOC  !=  0)  && 

Mdispinquire (MilDisplayO , M_DISP_KEY_SUPPORTED , 0) ) 
MdispOverlayKeyCMilDisplayO ,M_KEY_0N_C0L0R,M_EQUAL, 
OxFFL,M_DEF_DISPLAY_KEY_COLaR) ; 

num_files  =  load.names (Image.list ,  fenames) ; 

for  (wlevel=LEVEL ;  wleveKLEVEL+LEVEL.NIVEL ;  wlevel++)  -[ 

h_level_size  =  IMAGE_WIDTH/(pow(2,wlevel)) ; 
v_level_size  =  IMAGE_HEIGHT/(pow(2,wlevel)) ; 
dim_w[0]  =  h_level_size; 
dim_w[l]  =  v_level_size; 

level_wbuf  =  (double  *) 

malloc(h_level_size*v_level_size*IMAGE_BAND*sizeof (double)) ; 
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level_tiff_d  =  (unsigned  char  *) 
malloc (h_level_size*v_level_size*IMAGE_BAND) ; 
if  ((level_wbuf  ==  NULL)  I  I  (level_tiff_d  ==  NULL)){ 
printfC'Out  of  memory\n") ; 
exit (0) ; 

} 

printf  ("\nProcessing  level  ‘/odAn",  wlevel) ; 

/ *init_write_lisp_test (test_f ile , wlevel) ; */ 

for  (k=0 ;  k<nuin_f  iles ;  k++)  {. 

strcpy  ( Image_f  ile ,  naiiies+k*STRING) ; 
strcpy (name , Image_f ile) ; 
strcat(Image_f ile, " .tif ") ; 
printf  ("\ny,s\n"  ,name) ; 

/*  Clear  Buffers  */ 

Mbuf Clear (MillmageO, BACK) ; 

Mbuf Clear (Millmagel, BACK) ; 

Mbuf Clear (Millmage2, BACK) ; 

Mbuf Clear (MillmageS, BACK) ; 

Mbuf Clear (Millmage4, BACK) ; 

Mbuf Clear (Level_4, BACK) ; 


/*  Load  the  images  from  the  file.  */ 

Mbuf Import (Image_f ile,  M_TIFF,  M_L0AD,  MilSystem,  &MilImage4) ; 

/*  Translate  the  original  image  .  */ 

MimTranslate(MilImage4,  MillmageO,  (IMAGE.WIDTH  -  ACTUAL_WIDTH)/2, 
(IMAGE.HEIGHT  -  ACTUAL.HEIGHT) /2 .  M.DEFAULT) ; 

MdispSelect (MilDisplayO,  MillmageO) ; 
printf  ("\nlmage  */,d  displayed. \n" ,  k+1)  ; 

/* 

* 

*  . Compute  wavelet  transform 

* 
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*/ 

Mbuf Get (MillmageO, tiff _data) ; 

copy_char_to_double(tiff_data, wavelets) ; 
log_of (wavelets) ; 
wtn (wavelets, dim, 2, l,daub4) ; 
max  =  min  =  wavelets [0] ; 
for(i=0;i  <  IMAGE.WIDTH;  i++) 
for(j=0;  j  <  IMAGE.HEIGHT;  j++)-[ 
if (wavelets [j*IMAGE_WIDTH+i]  >  max) 
max  =  wavelets [j*IMAGE_WIDTH+i]  ; 
if (wavelets [j*IMAGE_WIDTH+i]  <  min) 
min  =  wavelets [j*IMAGE_WIDTH+i3 ; 


printfC'Meuc  wavelet  Coeff  =  y,f\n",max); 
printfC'Min  wavelet  Coeff  =  7,f\n",min); 
if(fabs(max)  >  fabs(min))  limit  =  fabs(max); 
else  limit  =  fabs(min); 

/*  Display  wavelets  */ 
factor  =  (double)Oxffff /limit; 

copy_double_to_char_rev(wavelets ,mod_tiff _d, factor) ; 

display.buf f er_on_screen (feMilDisplayl , feMillmagel , 
mod_tiff _d, "\nWavelets  displayed. " ,0) ; 

/♦recovering  the  original  picture  with  the  inverse  DWT*/ 
copy_double_to_double (wavelets, wbuf) ; 
wtn (wbuf , dim , 2 , - 1 , daub4) ; 
copy_double_to_char (wbuf ,mod_tif f _d, 1 . 0) ; 

/*  display _buffer_on_screen(&MilDisplay2,&MilImage2, 

mod_tiff_d, "\nRestored  Image  displayed.",©);*/ 

MgraAlloc (MilSystem,&MilGraphId) ; 

MgraColor(MilGraphId,0) ; 

/*  Box  around  current  level  */ 

MgreiRect (MilGraphId,MilImagel ,h_level_size,v_level_size, 
2*h_level_size-l ,2*v_level_size-l) ; 

/*  Box  around  level  1 

MgraRect (MilGraphld.Millmagel , IMAGE_WIDTH/2 , IMAGE_HEIGHT/2 , 
IMAGE.WIDTH- 1 , IMAGE.HEIGHT-l) ; */ 
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MdispSelect (MilDisplayl ,  Millmagel) ; 


/*  building  the  level  buffer*/ 

level_max  =  level.min  =  fabs (wavelets [v_level_size* 
IMAGE_WIDTH+h_level_size] ) ; 

for(i=h_level_size: i  <  h_level_size*2;  i++) 
for(j=v_level_size; j  <  v_level_size*2;  j++){ 

indice  =  (j-v_level_size)*h_level_size+i-h_level_size; 
level.wbuf [indice]  =  wavelets [j *IMAGE_WIDTH+i] ; 
if (fabs (wavelets [j*IMAGE_WIDTH+i] )  >  level_max) 
level_max  =  fabs (wavelets [j *IMAGE_WIDTH+i] ) ; 
if (fabs (wavelets [j *IMAGE_WIDTH+i] )  <  level_min) 
level_ffiin  =  fabs (wavelets [j*IMAGE_WIDTH+i] ) ; 

} 

printfC'Max  level_wavelet  Coeff  =  "/.f\n"  ,level_max) ; 
printfC'Min  level.wavelet  Coeff  =  y.f\n"  ,level_inin) ; 

normalize (level_wbuf,  level_max/HIST_VALUE,  h_level_size,  v_level_size) ; 
histogram(level_wbuf ,  wlevel,  HIST_VALUE) ; 

normalize (level_wbuf,  HIST_VALUE/MAX_VALUE ,  h_level_size,  v_level_size) ; 

write_wav_level_to_disk(level_wbuf ,  name,  wlevel,  2, 
h_level_size,  v_level_size) ; 

copy_double_to_char_rev_level(level_wbuf ,level_t iff _d,  factor, 
h_level_size,  v_level_size) ; 

/*  MbufPut (Level_4,level_tiff_d) ; 
display_buff er_on_screen(&Disp_Level_4,&Level_4, 
level_tiff_d, "\nLevel_Wbuf  displayed. " ,0) ; 

*/ 

find_list_highest(level_wbuf ,  output_level ,  h_level_size, 
v_level_size) ; 

for  (i  =  0;  i  <  SIZE.LIST  ;  i++)i 

printf("\nx  =  */,5.3f,  y  =  ‘/.5.3f,  value  =  '/,5.3f,  mean  =  7,5. 3f,  variance  =  7,5.31", 
output.level [i] . point . x ,  output_level [i] . point . y , 
output_level [i] .value,  output_level [i] .mean, 
output .level [i] .variance) ; 

} 

printf ("\n"); 
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write_wav_level_high_to_disk(output_level ,  name,  wlevel,  2, 
h_level_size,  v.level.size) ; 

/*write_lisp_test(output_level,  name,  wlevel,  test_file) ;*/ 
scan_picture(level_wbuf ,  output_level ,  wlevel,  h_level_size, 
v_level_size,  neime,  win_id) ; 

MbufExport(Wave_f ile,  M_TIFF,  Millmagel); 

} 

free(level_wbuf ) ; 
free(level_tiff_d) ; 

/ *end_write_lisp_test (test_f ile ,  wlevel) ; */ 

} 

/*  Clean  Up  */ 

/*  Disable  keying  on  display  if  its  supported.  */ 
if  ((M_DEF_DISPLAY_KEY_DISABLE_ON_FREE  !=  0)  && 

Mdispinquire (MilDisplayO ,M_DISP_KEY_SUPPORTED , 0) ) 

MdispOverlayKey  (MilDisplayO ,  M_KEY_0FF ,  M.NULL ,  M.NULL ,  M.NULL) ; 

/*  Release  subimages  and  color  image  buffer.  */ 

MbufFree(MillmageO) ; 

Mbuf Free (Millmagel) ; 

MbufFree(MilImage2) ; 

Mbuf Free (MillmageS) ; 

Mbuf Free (Millmage4) ; 

Mbuf Free (Level_4) ; 

/*  Release  defaults.  */ 

MdispFree(MilDisplayl) ; 

MdispFree(MilDisplay2) ; 

MdispFree(MilDisplay3) ; 

MdispFree (MilDisplay4) ; 

MdispFree(Disp_Level_4) ; 

MappFreeDefault(MilApplication,  MilSystem,  MilDisplayO,  M.NULL,  M.NULL); 
free (output. level) ; 
free (names); 
return ; 


File:  util.h 

Name:  Jader  Gomes  da  Silva  Filho 
Date :  05/97 

Operating  Environment:  Windows  95 
Compiler:  MS  Visual  C++ 

#include  "mil.h" 

#define  IMAGE. WIDTH 
#define  IMAGE.HEIGHT 
#define  ACTUAL.WIDTH 
#define  ACTUAL.HEIGHT 
#define  IMAGE.DEPTH  8L 
#define  IMAGE.BAND  IL 

#define  SIZE.LIST  10 

#define  STEP. ANGLE  360 

#define  LEVEL  3 

#define  LEVEL.NIVEL  1 

#define  SCAN.WIN  2 

#define  SCAN.STEP  2 

#define  SWAP(x,y)  {int  t;  t 
#define  FALSE  0 

#define  TRUE  1 

#define  STRING  256 

#define  BACK  128L 
#define  MAX.VALUE  10. OF 

#define  HIST. VALUE  4000. OF 

typedef  struct  point  { 
double  x,y; 

}  Point; 

typedef  struct  feature.node  { 

Point  point; 
double  value; 
double  mean; 
double  varicince; 

}  Feature .Node; 


512L 

512L 

512L 

512L 


tjrpedef  struct  training.list{ 


chaur  *file_nanie; 
int  same .type; 
struct  training.list 
♦next ; 

}  Training.List ; 

void  write_wavelets_to_disk (double  ♦coef,char  ♦name); 

void  write_message_and_pause(char  ♦message); 

void  display _buffer_on_screen(MIL_ID  ♦Display,  MIL.ID  ♦Image, 

unsigned  char  ♦data,  char  ♦message, 
int  wait) ; 

void  copy_double_to_double (double  ♦in,  double  ♦out); 

void  copy_double_to_double_level (double  ♦in,  double  ♦out,  int  h.size,  int  v.size); 

void  copy_double_to_char_rev (double  ♦in,  unsigned  char  ♦out, double  scale); 

void  copy_double_to_char_rev_level (double  ♦in,  unsigned  char  ♦out, double  scale, 
int  h.size,  int  v.size) ; 

void  copy_double_to_char (double  ♦in,  unsigned  char  ♦out, double  scale); 

void  copy_double_to_char_level(double  ♦in,  unsigned  char  ♦out, double  scale, 
int  h.size,  int  v.size) ; 

void  copy_char_to_double (unsigned  char  ♦in,  double  ♦out); 

void  find.list .highest (double  ♦in,  Feature.Node  ♦out,  int  h.size,  int  v.size) ; 

void  write.wav.level.to.disk (double  ♦in,  char  ♦name,  int  level,  int  angle, 
int  h.size,  int  v.size); 

void  write_wav.level.high_to_disk(Feature_Node  ♦feature. list,  char  ♦name, 
int  level,  int  angle,  int  h.size,  int  v.size); 
void  find.list.lowest (double  ♦in,  Feature.Node  ♦f eature.list , 
int  h.size,  int  v.size); 
void  log.of (double  ♦inout) ; 

Point  calc. centroid (Feature.Node  ♦f eature.list ,  int  level); 
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int  load_names_and_types(char  *f ile_list ,Training_List  **names_list) ; 

void  normalize (double  *inout,  double  factor,  int  h_size,  int  v_size) ; 

void  init_write_lisp_training(char  *file,  int  level); 

void  write_lisp_training(Feature_Node  *feature_list ,  char  ♦name, 
int  level,  int  angle,  char  ♦file); 

void  end_write_lisp_training(char  ♦file,  int  num_files,  Training_List  ♦names, 
int  level) ; 

void  write_lisp_id_f ileCchar  ♦file,  int  num_files,  Training.List  ♦names, 
int  level) ; 

int  load_names (char  ♦file_list,  char  ♦♦names); 
void  free_f ile_list (Training_List  ♦♦names_list) ; 
int  Int (double  value); 

/♦  Phase  2  -  Testing  ♦/ 

/:|c3f:5j::tc:|c3t:*****  +  *  +  **************  ********♦*♦♦*♦********************♦******/ 

void  init_write_lisp_test(char  ♦file,  int  level); 
void  write_lisp_test (Feature_Node  ♦feature_list ,  char  ♦name, 
int  level,  char  ♦file); 

void  end_write_lisp_test(char  ♦file,  int  level); 

/*  Phase  3  -  Scanning  ♦/ 

/4:3|£4:sJe:^*  +  :^c5|c:(c:t::(e*:|:>J:4c**stc:t:*********************3|c*5f:*******5»:************5|<:jf:***/ 

void  histogram (double  ♦in,  int  level,  double  level_max) ; 

void  scan_picture (double  ♦in,  Feature_Node  ♦out,  int  level,  int  h_level_size, 
int  v_level_size,  chcir  ♦name,  char  ♦win.id) ; 
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File:  util.c 

Name:  Jader  Gomes  da  Silva  Filho 
Date :  05/97 

Operating  Environment:  Windows  95 
Compiler:  MS  Visual  C++ 

:|c:t::f::f:*:Jc*5H*************  ******  ******************************  ************  5f:***5|c/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <mil.h> 

#include  <math.h>  /*  for  fabs  */ 

#include  "util.h" 

#include  "nrutil.h" 


/*  Output  for  Matlab  Plotting*/ 

void  write_wav_level_high_to_disk(Feature_Node  *feature_list ,  char  *name, 
int  level,  int  angle,  int  h_size,  int  v_size) 

{ 

FILE  *outfile; 

char  file.nl [STRING] ,  f ile_n2 [STRING] ; 

int  i,  temp_x,  temp_y,  max.index  =  SIZE.LIST; 

Point  centroid  =  calc_centroid(feature_list ,  level); 

strcpyCf ile_nl ,name) ; 

/ *sprintf  (f  ile_n2 ,  "r/.da'/.d"  ,  level ,  angle) ;  */ 

sprintf(file_n2,"l*/.d"  .level) ; 

strcat (f ile_nl ,f ile_n2) ; 

strcatCf ile_nl , " .m") ; 

outfile  =  fopen(file_nl,''a") ; 

ifCoutfile  ==  (FILE  *)-!){ 

printf ("\nError  writing  wavelets  to  files  %s\n" ,f ile_nl) ; 
exit (0) ; 

} 

else-C 

fprintf  (outfile,  ""/.“/.Highest  '/.d  Level  "/.d  Angle  "/.d  Figure  "/,s\n" , 
max.index, level, angle, name) ; 

fprintf  (outfile,  "xh’/.d'/.d  =  0: 1  :’/.d;\n"  .level  .angle  ,h_size-l)  ; 
fprintf  (outfile,"yh"/.d'/,d  =  0: 1  :"/.d;\n" ,level,angle,v_size-l)  ; 
fprintf  (outfile,  "value*/,d"/.d  =  zeros  (‘/.d,"/,d)  ;\n"  .level,  angle,  v_size,h_s'ize) ; 
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fprintf  (outfile,"mean*/.dy.d  =  zeros(y.d,*/.d)  ;\n"  .level, angle, v_size,h_size) ; 
fprintf  (outfile,"variancey.dy.d  =  zeros (y.d,y.d)  ;\n" .level, angle, v_size,h_size) ; 
for(i=0;  i  <  max_index;  i++) 

{ 

temp_x  =  feature_list[i] .point .X  +  1; 
temp.y  =  feature_list [i] .point .y  +  1; 

/♦printf  ("\nx  =  ‘/.d  y  =  '/.d" ,  temp_x,  temp_y);*/ 

fprintf  (outf  ile , "  value*/, d'/.d  (’/,d ,  */,d)  =  */. .  61f ;  \n" ,  level ,  angle  ,temp_y ,  temp.x , 
f eature.list [i] .value) ; 

fprintf  (outf  ile,  "mean*/,d*/.d(*/,d,*/,d)  =  ‘/..61f  ;\n"  .level,  angle,  temp_y,temp_x, 
feature_list  [i]  .meaui) ; 

fprintf  (outf  ile ,  "variance*/.d*/,d(*/.d ,  */.d)  =  '/. .  61f ;  \n"  ,  level ,  angle ,  temp_y ,  temp_x , 
f  eature_list  [i]  .varicince) ; 

} 

fprintf  (outf  ile,  "xh*/.d*/,d  =  xh*/,d*/.d  -  */..61f;\n"  .level,  angle, 
level , angle , centroid . x) ; 

fprintf  (outf  ile,  "yh*/,d*/,d  =  yh*/.d*/,d  -  */..61f;\n"  .level,  angle, 
level , angle , centroid . y) ; 
fprintf (outf ile , "figure (2) \n") ; 
fprintf (outf ile, "clf\n") ; 

fprintf  (outfile, "surf  (xh*/,d*/,d,yh*/,d*/,d,value*/,d*/.d)  .shading  interp,  view(2),  colonn 
level, angle) ; 

fprintf (outf ile, "set (gca, 'YDir’ , ’ reverse ’)\n") ; 

fprintf  (outf  ile,  "title  (’Highest  */.d  Level  '/.d  Angle  */.d  Figure  '/.s’)\n", 
max.index , level , angle , name) ; 

fprintf  (outf  ile,  "title  (’Highest  */,d  Level  ‘/.d  Figure  */,s’)\n", 

max_index, level, name) ; 

fprintf (outfile,"xlabel(’x’)\n") ; 

fprintf (outf ile , "ylabel ( ’ y ’ ) \n") ; 

fprintf (outf ile , "zlabel ( ’ coef ’ ) \n" ) ; 

fprintf (outf ile , "figure (3) \n") ; 

fprintf (outf ile," clf\n") ; 

fprintf  (outfile, "surf  (xh*/.d*/.d,yh*/.d*/,d,abs(value'/.d*/,d))  .shading  interp,  view(2),  c 
level ,  aoigle ,  level ,  angle) ; 

fprintf (outf ile, "set (gca, ’YDir’ , ’ reverse ’)\n") ; 

fprintf  (outf  ile,  "title  (’Highest  '/,d  Level  ‘/.d  Angle  ’/.d  Figure  */.s’)\n", 
max_ index , level , angle , name) ; 

fprintf  (outfile,  "title  (’Highest  */,d  Level  */,d  Figure  */,s’)\n", 

max.index , level .name) ; 

fprintf  (outf  ile,  "xlabeK  ’x’)\n") ; 

fprintf (outf ile, "ylabel ( ’y’)\n") ; 

fprintf (outf ile, "zlabel (’abs (coef ) ’)\n") ; 


116 


} 

f close (outfile) ; 
return ; 


} 

/*  Output  for  Matlab  Plotting*/ 

void  write_wav_level_to_disk (double  *in,  char  *name,  int  level,  int  angle, 
int  h.size,  int  v_size) 

■C 

FILE  *outfile; 

char  file.nl [STRING] ,file_n2 [STRING] ; 
int  i,j, indice; 

strcpyCf  ile_nl  ,naine) ; 

/*sprintf  (f  ile_n2 ,  "l*/,da*/.d" , level , angle) ;  */ 

sprintf(file_n2,"r/.d"  .level) ; 

strcat (f ile_nl , f ile_n2) ; 

strcat(file_nl,".m") ; 

outfile  =  fopen(file_nl,"w") ; 

if (outfile  ==  (FILE  *)-!){ 

printf  ("\nError  writing  wavelets  to  files  ‘/,s\n"  ,f ile_nl) ; 
exit(O) ; 

} 

else-C 

fprintf (outfile, "‘/.'/.Wavelets  level  ‘/.d,  angle  '/.d,  figure  ‘/.s\n", 
level , angle .name) ; 

f  printf  (outfile,  "x‘/.d'/.d  =  0:  l:*/.d;\n"  .level,  angle,  h_size-l)  ; 
f  printf  (outfile,  "y'/.d’/.d  =  0:  l:’/.d;\n"  ,level,angle,v_size-l) ; 
fprintf  (outfile ,  "v'/.d'/.d  =  [" , level , angle) ; 
for(j=0;  j  <  v_size  ;  ]++){ 
for(i=0;  i  <  h_size  ;  i++){ 
indice  =  j*h_size  +  i; 
fprintf  (outfile , "'/. .  61f  " ,  in  [indice] ) ; 

} 

fprintf (outfile, "\n") ; 

} 

fprintf (outfile , "] ; \n") ; 
fprintf (outfile , "figure (1) \n") ; 
fprintf (outfile, "clf\n") ; 

fprintf  (outfile,  "surf  (x‘/,d'/,d,y*/,d'/,d,v'/,d*/.d)  .shading  interp,  view(2),  colormap(jet 
level, angle) ; 

fprintf (outfile, "set (gca, ’YDir’ , ’ reverse ’)\n") ; 

fprintf  (outfile,  "title  ('Wavelets  Coef  Level  '/id  Angle  '/(d  Figure  '/,s')\n". 
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level , angle , name) ; 

fprintfCoutfile,  "title (’Wavelets  Coef  Level  ‘/.d  Figure  */.s’)\n", 
level, name) ; 

fprintf (outf ile, "xlabeK ’x’) \n") ; 
fprintf (outfile, "ylabel(’y’)\n") ; 
fprintf  (outf  ile,  "zlabeK’coef ’)\n")  ; 
fprintf  (outfile,  "cixis([0  63  0  63])\n"); 

} 

fclose (outfile) ; 
return ; 

} 

void  write_message_and_pause(char  *message) 

■C 

printf (message) ; 

printf ("\nPress  <Enter>  to  continue."); 
getcharO ; 

} 

void  display_buff er_on_screen(MIL_ID  ^Display,  MIL_ID  *Image, 

unsigned  char  *data,  char  ^message, 
int  wait) 

-C 

Mbuf Clear (* Image, OL) ; 

MbufPut (♦Image , data) ; 

MdispSelect (♦Display,  ♦Image); 

if (wait) write_message_and_pause (message) ; 

} 

void  copy_double_to_double (double  ♦in,  double  ♦out) 
int  i,j; 

for(i=0;i  <  IMAGE.WIDTH;  i++) 
for(j=0;  j  <  IMAGE_HEIGHT;  j++) 

outCj^IMAGE_WIDTH+i]  =  in[j^IMAGE_WIDTH+i] ; 

} 

void  copy_double_to_double_level (double  ♦in,  double  ♦out,  int  h_size,  int  v_size) 

■C 

int  i,j; 

for(i=0;  i  <  h_size;  i++) 
for(j=0;  j  <  v_size;  j++) 

out [j^h_size+i]  =  in[j^h_size+i] ; 
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return; 


} 

void  copy_double_to_char_rev (double  *in,  unsigned  char  *out, double  scale) 
int  i,j; 

for(i=0;i  <  IMAGE_WIDTH;  i++) 
for(j=0;  j  <  IMAGE.HEIGHT;  j++) 

out [j*IMAGE_WIDTH+i]  =  Oxffff  -  (unsigned  char) 

(scale  *  fabs(in[j*IMAGE_WIDTH+i])  +  0.5); 

} 

void  copy_double_to_char_rev_level(double  *in,  unsigned  char  *out, double  scale, 
int  h_size ,  int  v_size) 

{ 

int  i,j; 

for(i=0;i  <  h_size;  i++) 
for(j=0;  j  <  v_size;  j++) 

out [j*h_size+i]  =  Oxffff  -  (unsigned  char) 

(scale  *  fabs(in[j*h_size+i])  +  0.5); 

} 

void  copy _double_to_char (double  *in,  unsigned  char  *out, double  scale) 
int  i,j; 

for(i=0;i  <  IMAGE.WIDTH;  i++) 
for(j=0;  j  <  IMAGE.HEIGHT;  j++) 

out [j*IMAGE_WIDTH+i]  =  (unsigned  char) 

(scale  *  fabs(in[j*IMAGE_WIDTH+i])  +  0.5); 

> 

void  copy_double_to_char_level(double  *in,  unsigned  char  *out, double  scale, 
int  h_size,  int  v_size) 

-C 

int  i,j; 

for(i=0;i  <  h_size;  i++) 
for(j=0;  j  <  v_size;  j++) 

out [j*h_size+i]  =  (unsigned  char) 

(scale  *  fabs(in[j*h_size+i] )  +  0.5); 

} 

void  copy_char_to_double (unsigned  char  *in,  double  *out) 
int  i,j; 
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for(i=0;i  <  IMAGE.WIDTH;  i++) 
for(j=0;  j  <  IMAGE.HEIGHT;  j++) 

out[j*IMAGE_WIDTH+i]  =  (double)  in[j*IMAGE_WIDTH+i] ; 

} 

int  distance (double  *in,  int  i,  int  j,  int  h_size,  int  v_size) 

if  ((sqrt(SQR(h_size/2-i)+SQR(v_size/2-j)))  >=  (h_size/2))-C 
inCj+h.size+i]  ==0.0; 
return  FALSE;} 
return  TRUE; 

} 


int  neighbornotzero (double  *in,  int  i,  int  j,  int  h_level_size, 
int  v_level_size) 

{ 

int  k , 1 ; 


for(l=(j==0  ?  j  :  j-1) ;  1  <=  (j==v_level_size-l  ?  j  :  j+D  ;  1++) 
for(k=(i==0  ?  i  :  i-1) ;  k  <=  (i==h_level_size-l  ?  i  :  i+1)  ;  k++)-C 
if  (in[l*h_level_size+k]  ==  0.0)  return  FALSE;} 
return  TRUE; 


/****QuickSort****/ 

void  Swap(Feature_Node  *elemlPtr,  Feature_Node  *elem2Ptr) 

-C 

Feature_Node  temp  =  *elemlPtr; 

♦elemlPtr  =  *elem2Ptr; 

*elem2Ptr  =  temp; 
return ; 


void  Partition (Feature_Node  *array,  int  First,  int  Last,  int  *PivotIndex) 

{ 

/♦initially,  everything  but  Pivot  is  in  unknown*/ 

double  Pivot  =  SQR(array[First] .point .x)  +  SQR (array [First] .point .y) ; 
/♦assumes  Pivot  is  first  item*/ 
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int  LastSl  =  First;  /*index  of  last  item  in  Si*/ 

int  FirstUnknown  =  First  +  1;  /*index  of  first  item  in  unknown*/ 

/*move  one  item  at  a  time  until  unknown  region  is  empty  */ 
for  (;  FirstUnknown  <=  Last;  ++FirstUnknown) 

{  /* Invar i cint :  array [First+1 .  .LastSl]  <  Pivot 
array[LastSl+l. .FirstUnknown- 1]  >=  Pivot*/ 

/*move  item  from  unknown  to  proper  region  */ 

if  (SQRCarray  [FirstUnknown]  .point  .x)  +  SQRCarray  [FirstUnknown]  .point  .y) 
<  Pivot) 

{.  /*  item  from  unknown  belongs  in  SI*/ 

++LastSl; 

SwapC&eirray  [FirstUnknown] ,  fearray  [LastSl] ) ; 


/*  else  item  from  unknown  belongs  in  S2*/ 

}  /*  end  for*/ 

/*place  Pivot  in  proper  position  and  mark  its  location  */ 
SwapC&array  [First]  ,  feeirray  [LastSl] ) ; 

*PivotIndex  =  LastSl; 

}  /*end  partition*/ 

/♦Sorts  the  items  in  eui  array  in 
precondition:  array [First .. Last]  is  am  array, 
postcondition:  array [First. .Last]  is  sorted. 

Calls:  pairtition. */ 

void  Quicksort (Feature_Node  *airray,  int  First,  int  Last) 
int  Pivot Index; 
if  (First  <  Last) 

{  /*create  the  partition:  SI,  Pivot,  S2  */ 
Partition(au:ray,  First,  Last,  fePivotlndex) ; 

/♦sort  regions  SI  and  S2  */ 

Quicksort (array.  First,  Pivotindex  -  1); 

Quicksort (array,  Pivotindex  +  1,  Last); 

}  /*end  if*/ 
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/****endQuickSort****/ 


Feature_Node  *order_by_distance(Feature_Node  *feature_list) 

{ 

Feature_Node  *ordered_list ; 
int  k; 

ordered.list  =  (Feature_Node  *) 

malloc (SIZE_LIST*sizeof (Feature.Node) ) ; 
if  (ordered_list  ==  NULL){ 
printfC'Out  of  memory \n"); 
exit(O) ; 

} 

/*  in  case  we  need  to  save  the  original  ordering  by  value, 

just  change  feature_list  by  ordered_list  in  the  Quicksort  call  */ 
for (k=0 ; k<SIZE_LIST ; k++) 

ordered_list [k]  =  f eature_list [k] ; 

Quicksort (feature_list,  0,  SIZE_LIST-1)  ; 
return  ordered.list ; 


void  find_list_highest (double  *in,  Feature_Node  *f eature_list , 
int  h.size,  int  v_size) 

int  i,j,k,temp_i  =  l,temp_j  =  1; 

double  max  =  -1 . 5*MAX_VALUE,  min  =  1 .5*MAX_VALUE; 

double  *temp ; 

int  l,m, indice; 

double  sum=0.0,  sumsqr=0.0; 

temp  =  (double  *) 

malloc (h_size*v_size*IMAGE_BAND*sizeof (double) ) ; 

if  (temp  ==  NULL){ 

printfC'Out  of  memory\n") ; 
exit(O) ; 

} 

copy_double_to_double_level(in,  temp,  h_size,  v_size) ; 
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for (k=0 ; k<SIZE_LIST ; k++) { 
for(j=0;  j  <  v_size  ;  j++) 
for(i=0;  i  <  h_size  ;  i++){ 
indice  =  j*h_size  +  i; 
if (fabs (temp [indice])  >=  max 

&&  neighbornotzero(temp,i, j ,h_size,v_size)){ 
max  =  fabs (temp [indice] ) ; 
temp_i  =  i; 
temp_j  =  j; 

} 

if (temp [indice]  <  min){ 
min  =  fabs (temp [indice] ) ; 

} 

} 

f eature_list [k] . point. x  =  temp_i; 
feature_list[k] .point .y  =  temp_ j ; 

feature_list [k] . value  =  temp[temp_j*h_size  +  temp_i] ; 

/*  sum  and  sum  square,  plus  zeroing  the  point  and  neighbors*/ 
for(m=(temp_j==0  ?  temp_j  :  temp_j-l); 
feature.list [k] .mean  =  sum/9; 

feature_list[k]  .variance  =  (sumsqr  -  SQR(feature_list[k]  .meein)*9)/8; 

max  =  min; 

Slim  =  sumsqr  =  0.0; 

} 

order _by_distance(feature_list) ; 

free (temp) ; 

return; 

} 

void  find_list_lowest (double  *in,  Feature.Node  *feature_list , 
int  h_size,  int  v_size) 

int  i,j,k,temp_i  =  l,temp_j  =  1; 
double  max  =  in[0] ,  min  =  in[0] ; 
double  *temp; 
int  l,m, indice; 
double  sum=0.0,  sumsqr=0.0; 

temp  =  (double  ♦) 
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malloc(h_size*v_size*IMAGE_BAMD*sizeof (double) ) ; 


if  (temp  ==  NULL){ 
printfC'Out  of  memoryXn"); 
exit (0) ; 

} 

copy_double_to_double_level(in,  temp,  h.size,  v_size) ; 

/^borders  are  being  taken  off*/ 
for (k=0 ; k<SIZE_LIST ; k++) { 
for(j=l;  j  <  v_size-l  ;  j++) 
for(i=l;  i  <  h_size-l  ;  i++){ 
indice  =  j*h_size  +  i; 

if (temp [indice]  <=  min  &&  neighbornotzero(temp,i, j ,h_size,v_size))-C 
min  =  temp [indice] ; 
temp_i  =  i; 
temp.j  =  j; 

> 

if  (temp  [indice]  >  max)-C 
max  =  temp  [indice]  ; 

> 

} 

feature_list [k] .point .X  =  temp_i; 
feature_list [k] .point .y  =  temp_ j ; 
f eature_li St [k] .value  =  min; 

/*  sum  cuid  sum  square,  plus  zeroing  the  point  aind  neighbors*/ 
f or(m=temp_j-l ;  m  <  temp_j+2  ;  m++) 
f or (l=temp_i-l ;  1  <  temp_i+2  ;  !++){ 
indice  =  m*h_size+l; 
sum  +=  temp [indice] ; 
sumsqr  +=  SQR (temp [indice] ) ; 
temp [indice]  =  0.0;} 

feature_list [k] .mean  =  sum/9; 

feature_list [k] .variance  =  (sumsqr  -  SQR(feature_list [k] .mean) *9) /8; 

min  =  max; 

sum  =  sumsqr  =  0.0; 

} 

free (temp); 
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return; 


} 


void  log_of (double  Pinout) 
int  i,j; 

for(i=0;i  <  IMAGE.WIDTH;  i++) 

for(j=0;  j  <  IMAGE.HEIGHT;  j++)  { 

inout[j*IMAGE_WIDTH+i]  =  (inout [j*IMAGE_WIDTH+i]  ==0.0)  ? 
0.0000000000000000001  :  inout [j*IMAGE_WIDTH+i] ; 

inout[j*IMAGE_WIDTH+i]  =  (double)  logl0(inout  [j=t=IMAGE_WIDTH+i] ) ; 

} 

} 

Point  calc_centroid (Feature _Node  *feature_list ,  int  level) 

-C 

int  i; 

double  sum_x  =  0.0,  sm_y  =  0.0; 
int  max.index  =  SIZE_LIST; 

Point  centroid; 

for(i=0;  i  <  max_index;  i++) 

-C 

sum_x  +=  feature_list[i] .point. x; 
sum.y  +=  feature_list[i] .point. y; 

} 

centroid.  X  =  suin_x/max_index; 
centroid,  y  =  suin_y/max_  index; 

return  centroid; 

} 

int  load_naines(char  *file_list,  chair  **names) 

-C 

FILE  * infile; 
int  i  =  0,  valid; 

char  *file  =  (char  *)  malloc(STRING*sizeof  (chair)) ; 

infile  =  fopen(f ile_list , "r") ; 
if (infile  ==  NULL){ 

printf  ("\nError  reading  from  file  y.s\n"  ,f  ile.list)  ; 
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exit (0) ; 

}else-[ 

while  ( !feof (inf ile) )  { 

valid  =  fscanf (inf ile, "*/.s\n" ,  file); 
i++; 

} 

rewind(infile) ; 

*naines  =  (char  *)  malloc(STRING*sizeof  (char)*i)  ; 
i  =  0; 

while  (  !feof  (inf  ile))  ■[ 

valid  =  fscanf  (inf  ile,  "*/,s\n" ,  (*names+i*STRING)  )  ; 
i++; 

} 

} 

fclose(inf ile) ; 
free (file) ; 
return (i) ; 


int  load_ncunes_cLnd_types  (char  *f ile_list  ,Training_List  ♦^names.list) 

-C 

FILE  *infile; 
int  i  =  0,  valid; 

char  *file  =  (char  ♦)  malloc(STRING*sizeof (char)) ; 

Training_List  *temp_ptr,  *first; 

infile  =  f open(f ile.list , "r") ; 
if  (infile  ==  NULL)-C 

printf  ("\nError  reading  from  file  y,s\n"  ,f ile.list)  ; 
exit (0) ; 

}else{ 

*names_list  =  NULL; 
while  (!feof (infile))  { 

if (((temp_ptr  =  (Training_List  *)malloc(sizeof (Training_List)))  ==  NULL) 
II  ((temp_ptr->f ile.narae  =  (char  ♦)malloc(STRING*sizeof (char))) 

==  NULL))  -C 

printf ("Not  enough  space  for  loading  names\n"); 
exit(O) ; 

} 

valid  =  fscanf  (inf  ile,  ""/.s  %d\n"  ,  temp_ptr->file_name, 
&(temp_ptr->same_type)) ; 
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printfC'/Cs  %d\n",  temp_ptr->f  ile.name,  temp_ptr->same_type) ; 
if  (*names_list  ==  NULL) 

{ 

first  =  *neiines_list  =  temp_ptr; 
temp_ptr->next  =  NULL; 

} 

else 

*names_list  =  (♦names_list)->next  =  temp.ptr; 
temp_ptr->next  =  NULL; 

} 

if  (temp_ptr->saine_type  ==  FALSE) 

i++; 

} 

*names_list  =  first; 

} 

f close (infile) ; 
return (i) ; 

> 

void  normalize (double  *inout,  double  factor,  int  h_size,  int  v_size) 
int  i.j; 

for(i=0;  i  <  h_size;  i++) 
for(j=0;  j  <  v_size;  j++) 
if (factor  !=  0.0) 

inout [j*h_size+i]  =  inout[j*h_size+i] /factor; 
return ; 

> 

void  init_write_lisp_training(char  *file,  int  level) 

FILE  *outfile; 

char  file.nl [STRING] ,  file_n2 [STRING]  ; 

strcpy(file_nl,file) ; 
sprintf  (f  ile_n2,  "l/(d"  .level)  ; 
strcat(file_nl,file_n2) ; 
strcat (f ile_nl , " . lisp") ; 
outfile  =  fopen(file_nl,"w") ; 

if(outfile  ==  NULL)-C 
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printf  ("VnError  writing  to  file  ‘/,s\n"  ,f ile)  ; 
exit (0) ; 

} 

else{ 

fprintf (outf ile , " ; ;Training  data  level  %d\n" ,  level); 
fprintf(outf ile, "(defun  train  ()  (main  ’("); 

> 

fclose (outf ile) ; 
return ; 


void  write_lisp_ training (Feature _Node  *f eature_list ,  char  *name, 
int  level,  int  angle,  char  *file) 

{ 

FILE  *outfile; 

int  i  =  0,  max_index  =  SIZE_LIST; 

Point  centroid  =  calc_centroid(feature_list,  level); 
char  file.nl [STRING] ,  file_n2 [STRING] ; 

strcpy(f ile_nl ,f ile) ; 
sprintf(file_n2, "l%d" , level)  ; 
strcat (f ile_nl ,f ile_n2) ; 
strcat (file.nl , " . lisp") ; 
outf ile  =  fopen(file_nl,"a") ; 

if  (out  file  ==  NULL)-( 

printf  ("\nError  writing  to  file  y.s\n"  ,f ile)  ; 
exit (0) ; 

} 

else-( 

fprintf  (outf  ile,  "\n;  ;Highest_y.d,  level  %d,  angle  ’/.d,  figure  '/osXnC, 
maix.index, level, angle, name) ; 
for(i=0;  i  <  max.index;  i++) 

-C 

fprintf  (outf  ile,  "‘/..leif  %.161f  %.161f  7..161f  ’/..ISlf  ", 
f eature.list [i] . point . x-centroid . x , 

feature.list [i] .point .y-centroid.y,feature_list[i] .value, 
feature.list  [i]  .mean,feature_list[i]  .varieince)  ; 

} 

fprintf (outf ile, ")\n") ; 

} 


128 


fclose(outfile) ; 
return; 

} 

void  print _bit(int  value,  FILE  *outfile,  int  nn) 

■C 

int  i; 

int  mask  =  1  «  (nn-1) ; 

for(i=l;  i<=nn;  i++) 

{ 

fputc(( (value  &  mask)  ==  0)  ?  ’0’  outf ile) ; 

value  «=  1; 
fputcC’  outf ile); 

} 

return ; 

} 

int  Int (double  value) 

{ 

int  temp  =  value; 

if  (value  ==  (double)  temp) 
return  temp; 
else 

return  temp+1; 

} 

void  end_write_lisp_training(char  *file,  int  num_files,  Training_List  *names, 
int  level) 

■C 

int  i  =  0,  angle; 
double  ii  =  1./2; 

FILE  *outfile; 

int  num_bitl  =  Int(logl0(num_files)/logl0(2)) ; 
int  num_bit2  =  Int(logl0(360/STEP_ANGLE)/logl0(2)) ; 
char  file_nl [STRING] ,  f ile_n2 [STRING] ; 

num_bitl  =  num_files; 
strcpy(file_nl,file) ; 
sprintf  (f  ile_n2 ,  "ly.d"  ,  level) ; 
strcat(file_nl,file_n2) ; 
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strcat (f ile_nl , " . lisp") ; 
outfile  =  fopen(file_nl, "a") ; 

ifCoutfile  ==  NULL){ 

printf ("\nError  writing  to  file  %s\n",file); 
exit (0) ; 

} 

else-C 

fprintf (outfile, ")\n; ;outputs  \n’ (") ; 
do{ 

/*if  the  file  has  the  same  output  as  the  previous,  don't  increment  i*/ 
if (names->same_type  ==  FALSE) { 
ii  *=  2; 
i  =  (int)  ii; 

} 

for(angle=0;  angle  <  360/STEP_AMGLE;  aJigle++){ 
fprintf (outfile, "(") ; 
print_bit(i,outfile,num_bitl) ; 
print_bit(angle,outf ile,num_bit2) ; 
fprintf (outfile, ")\n") ; 

} 

}while( (names  =  names->next)  !=  NULL); 
fprintf (outfile, ")))\n") ; 

} 

fclose (outfile) ; 
return ; 

} 

void  write_lisp_id_f ile(char  *file,  int  num_files,  Training.List  *names, 
int  level) 

■C 

int  i  =  1,  angle; 

FILE  *outfile; 

int  num.bitl  =  Int(logl0(num_files)/logl0(2)) ; 
int  num_bit2  =  Int (Iogl0(360/STEP_ANGLE)/Iogl0(2) ) ; 
char  file.nl [STRING] ,  f ile_n2 [STRING] ; 
char  *name; 

num_bitl  =  num_files; 
strcpy(file_nl,file) ; 
sprintf (f ile_n2 , "l%d" , level) ; 
strcat (f ile.nl ,f ile_n2) ; 
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strcat(file_nl," .lisp") ; 
sprintf (f ile_n2 , " " ) ; 
outfile  =  fopen(file_nl,"w") ; 
if(outfile  ==  NULL){ 

printf ("\nError  writing  to  file  %s\n",file); 
exit(O) ; 

} 

else{ 

fprintf  (outfile,";  .‘identification  list  for  level  */,d  \n",  level); 
fprintf (outfile (setf  ^id.list'/od*  ’(",  level); 

do{ 

/*if  the  file  has  the  same  output  as  the  previous,  skip  it*/ 
if  (names->same_type  ==  FALSE) -[ 
name  =  names->f ile_name ; 

for(angle=0;  angle  <  360/STEP_ANGLE;  angle++){ 
strcpy(f ile_nl,name) ; 

sprintf  (f  ile_n2 ,  "iy.day.d" ,  level ,  angle*STEP_ANGLE)  ; 

strcat(f ile_nl,file_n2) ; 

fprintf  (outfile, "  (‘/.s  "  ,file_nl)  ; 

fprintf (outfile ,"("); 

print _bit(i,outfile,num_bitl) ; 

print _bit  (cuigle ,  outfile  ,num_bit2) ; 

fprintf (outfile, "))\n") ; 

} 

i  *=  2; 

} 

}while( (names  =  names->next)  !=  NULL); 
fprintf (outfile, "))\n") ; 

} 

f close (outfile) ; 
return; 


void  free_f ile.list (Training_List  **names_list) 
■C 

Training_List  *temp_ptr; 
while  ((*names_list)  !=  NULL)-[ 
free((*names_list)->f ile_name) ; 
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temp_ptr  =  *naines_list ; 
*names_list  =  (*names_list)->next; 
free(temp_ptr) ; 

} 

return ; 


/*  Phase  2  -  Testing  */ 

void  init_write_lisp_test(char  *file,  int  level) 

{ 

FILE  *outfile; 

char  file.nl [STRING],  file_n2 [STRING] ; 

strcpy (f ile_nl , file) ; 
sprintf (f ile_n2 , "l%d" , level) ; 
strcat(file_nl,file_n2) ; 
strcat (f ile_nl , " . lisp" ) ; 
outfile  =  fopen(file_nl, "w")  ; 

ifCoutfile  ==  NULL){ 

printf  ("\nError  writing  to  file  “/oS\n"  ,f ile)  ; 
exit (0) ; 

} 

else{ 

fprintf  (outfile, ;Test  data  level  7,d\n",  level); 
fprintf (outfile, " (defun  test  ()  (recon  ’("); 

} 

f close (outfile) ; 
return ; 

} 

void  write_lisp_test (Feature_Node  eature_list ,  char  ♦name, 
int  level,  char  *file) 

{ 

FILE  ♦outfile; 

int  i  =  0,  max_index  =  SIZE_LIST; 

Point  centroid  =  calc_centroid(feature_list ,  level); 
char  file_nl [STRING] ,  file_n2 [STRING] ; 
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strcpy(f ile_nl ,f ile) ; 
sprintf  (f  ile_n2 ,  "ly.d" , level) ; 
street (file_nl ,file_n2) ; 
street (f ile_nl , " . lisp") ; 
outfile  =  fopen(file_nl,"e") ; 

ifCoutfile  ==  NULL){ 

printf  ("\nError  writing  to  file  '/.s\n"  ,f ile) ; 
exit (0) ; 

} 

else{ 

fprintf  (outfile, "\n;  ;Highest_y,d,  level  y.d,  figure  y.s\n(", 
mex_ index, level, neme) ; 
for(i=0;  i  <  mex_index;  i++) 

fprintf  (outfile,  161f  y..l61f  y.ieif  y.l61f  %  .161f  ", 
f eeture.list [i] . point . x-eentroid . x , 

feeture_list [i] .point .y-centroid.y,feeture_list [i] .velue, 
f eeture.list  [i]  .mecin,f eeture_list  [i]  .verienee) ; 

} 

fprintf (outfile, ")\n") ; 

} 

felose (outfile) ; 
return ; 


void  end_write_lisp_test(oher  *file,  int  level) 

{ 

FILE  ♦outfile; 

eher  file.nl [STRING] ,  file_n2 [STRING] ; 

strepy(file_nl,file) ; 
sprintf  (file_n2, "iy,d" , level) ; 
street(f ile_nl ,file_n2) ; 
street (file.nl,". lisp") ; 
outfile  =  fopen(file_nl,"e") ; 

if (outfile  ==  NULL){ 

printf  ("\nErr or  writing  to  file  y.s\n"  ,f ile) ; 
exit (0) ; 

} 


133 


else{ 

f pr intf (outf ile , " ) ) ) \n" ) ; 

} 

fclose (outf ile) ; 
return ; 


/*  Phase  3  -  Scanning  */ 

/***:»:***:(!!(::(:***  !(c>(c**:(!**4:***  ****♦****♦♦*****♦**♦!*:!('!*!****♦♦*  **♦*=!=*  +  ^  + 


int  neighbornotzero_scan(double  *in,  int  i,  int  j,  int  level) 

-C 

int  k,l; 

int  h_level_size  =  IMAGE_WIDTH/(pow(2,level)) ; 
int  v_level_size  =  IMAGE_HEIGHT/(pow(2,level) ) ; 

for(l=(j==0  ?  j  :  j-1);  1  <=  (j==v_level_size-l  ?  j  :  j+1)  ;  1++) 
for(k=(i==0  ?  i  :  i-1) ;  k  <=  (i==h_level_size-l  ?  i  :  i+1)  ;  k++)-C 
if  (in[l*h_level_size+k]  ==  0.0)  return  FALSE;} 
return  TRUE; 


void  histogram (double  *in,  int  level,  double  level_max) 

-C 

int  i,j , indice, threshold, ten.percent, count  =  0; 
int  *hist; 

int  h_level_size  =  IMAGE_WIDTH/(pow(2,level)) ; 
int  v_level_size  =  IMAGE_HEIGHT/(pow(2,level) ) ; 

hist  =  (int  *) 

malloc((int)  (level_max*sizeof (int))) ; 
ten_percent  =  (int)  (0. l*h_level_size*v_level_size) ; 

printf  ("(int)  fabs(level_max)  =  y,d\n" ,  (int)  fabs (level_max)) ; 


for  (i=0;i<(int)level_max;i++) 
hist[i]  =  0; 

for(j=0;  j  <  v_level_size  ;  j++) 
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for(i=0;  i  <  h_level_size  ;  i++) 

{ 

indice  =  (int)  fabs (in[j*h_level_size  +  i]); 
hist [indice] ++; 

} 

i  =  -1; 

printf  ("ten_percent  =  */.d\n"  ,ten_percent) ; 
while (count  <  ten_percent) 

■C 

i++; 

count  +=  hist [i] ; 

printf  ("hist  [%d]  =  7,d\n" ,  i  ,hist  [i] ) ; 

} 

threshold  =  i; 

printf  ("threshold  =  ‘/odXn"  .threshold)  ; 

for(j=0;  j  <  v_level_size  ;  j++) 
for(i=0;  i  <  h_level_size  ;  i++) 

indice  =  j*h_level_size  +  i; 

if  (( int )fabs( in [indice])  <=  threshold) 

{ 

in [indice]  =  0.0; 

} 

} 

return ; 


void  find_scan_list_highest (double  *in,  Feature.Node  *feature_list , 
int  h_init,  int  h_size,  int  v_init,  int  v_size, 
int  level) 

{ 

int  i,j,k,temp_i  =  l,temp_j  =  1; 

double  max  =  -1 .5*MAX_VALUE,  min  =  1 . 5*MAX_VALUE ; 

double  win_max  =  -1 .5*MAX_VALUE,  win_min  =  1 . 5*MAX_VALIJE ; 

double  *temp ; 

int  l,m, indice; 

double  sum=0 . 0 ,  sumsqr=0 . 0 ; 

int  h_level_size  =  IMAGE_WIDTH/(pow(2,level)) ; 
int  v_level_size  =  IMAGE_HEIGHT/(pow(2,level)) ; 

temp  =  (double  *) 
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malloc(h_level_size*v_level_size*IMAGE_BAND*sizeof (double) ) ; 


if  (temp  ==  NULL){ 
printfC'Out  of  memory\n"); 
exit (0)  ; 

} 

copy_double_to_double_level(in,  temp,  h_level_size,  v_level_size) 

for(j=v_init ;  j  <  v_init+v_size;  j++) 
f or(i=h_init ;  i  <  h_init+h_size;  i++){ 
indice  =  j*h_level_size  +  i; 
if (fabs (temp [indice] )  >  win_max) 
win.max  =  fabs (temp [indice] ) ; 

if (fabs (temp [indice])  <  win_min) 
win.min  =  fabs (temp [indice] ) ; 

} 

normalize (temp,  win_max/MAX_VALUE ,  h_level_size,  v_level_size) ; 

/♦borders  are  being  taken  off*/ 
for (k=0 ; k<SIZE_LIST ; k++) { 

f or( j=v_init ;  j  <  v_init+v_size;  j++) 
for(i=h_init;  i  <  h_init+h_size ;  i++){ 
indice  =  j*h_level_size  +  i; 
if (fabs (temp [indice])  >=  max  && 

neighbornotzero_scan(temp, i,j , level) ){ 
max  =  fabs (temp [indice] ) ; 
temp_i  =  i; 
temp.j  =  j; 

} 

if (temp [indice]  <  min){ 
min  =  fabs (temp [indice] ) ; 

} 

} 

feature.list [k] .point .X  =  temp_i; 
feature_list [k] .point .y  =  temp_j ; 

feature.list [k] .value  =  temp[temp_j*h_level_size  +  temp.i] ; 

/*  sum  and  sum  squcire,  plus  zeroing  the  point  and  neighbors*/ 
f or(m=(temp_j==0  ?  temp_j  :  temp_j-l) ; 
m  <=  (temp_j==v_level_size-l  ?  temp_j  :  temp_j+l)  ;  m++) 
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f or(l=(temp_i==0  ?  temp_i  :  temp_i-l) ; 

1  <=  (temp_i==h_level_size-l  ?  temp_i  :  temp_i+l)  ;  !++){ 
indice  =  m*h_level_size+l; 

/♦average  is  being  calculated  with  the  abs  values  ♦/ 
sum  +=  fabs (temp [indice] ) ; 
sumsqr  +=  SQR(temp [indice]  ) ; 
temp [indice]  =  0.0; 

} 

feature.list [k] .mean  =  sum/9; 

feature_list  [k]  .varicince  =  (sumsqr  -  SQR(feature_list[k]  .mean)*9)/8; 

max  =  min; 

sum  =  sumsqr  =  0.0; 

} 

order_by_distance(feature_list) ; 
for (k=0 ; k<SIZE_LIST ; k++) 

{ 

if (f eature_list [k] . value  ==  0.0) 

/*  flag  that  signals  the  NN  to  discard  this  template  ♦/ 
f eature_li St [0] .value  =0.0; 

} 

free (temp) ; 
return; 


/*  Output  for  Matlab  Plotting*/ 

void  write_wav_scan_level_high_to_disk(Feature_Node  *f eature_list ,  char  *name, 
int  level,  int  h_size,  int  v_size,  int  window, 
int  h_init,  int  v_init) 

{ 

FILE  *outfile; 

char  file.nl [STRING] ,  file_n2 [STRING] ; 

int  i,  temp_x,  temp_y,  meix.index  =  SIZE.LIST; 

Point  centroid  =  calc_centroid(feature_list ,  level); 
int  h_level_size  =  IMAGE_WIDTH/(pow(2,level) ) ; 
int  v_level_size  =  IMAGE_HEIGHT/ (pow(2, level) ) ; 

strcpy(f ile_nl ,name) ; 

sprintf  (f  ile_n2 ,  "l7.dhi*/,dviy.dhsy,dvs’/,d" ,  level  ,h_init  ,v_init  ,h_size  ,v_size) ; 
strcat(file_nl,file_n2) ; 
strcat (f ile_nl , " .m") ; 
outfile  =  fopen(file_nl,"w") ; 
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ifCoutfile  ==  (FILE  *)-!)■[ 

printf  ("\nError  writing  wavelets  to  files  7,s\n"  ,f ile_nl)  ; 
exit (0) ; 

} 

else{ 

fprintf (outfile,"*/.*/,Highest_7.d,  level  ‘/.d,  figure  y,s\n", 
max_index , level .name) ; 

fprintf  (outfile,"xh*/.d  =  0:l:y.d;\n"  .level, h_level_size-l)  ; 
fprintf  (outfile,"yhy,d  =  0;l:y,d;\n", level, v_level_size-l)  ; 
fprintf  (outfile,"valuey.d  =  zeros C/.d.y.d)  ;\nMevel,v_level_size,h_level_size) ; 
fprintf  (outfile,"meany.d  =  zerosC/.d.y.d)  ;\n"  .level, v_level_size,h_level_size) ; 
fprintf  (outfile,"variancey.d  =  zeros (y.d,y.d)  ;\n"  .level, v_level_size.h_level_siz< 
for(i=0;  i  <  max_index;  i++) 

temp_x  =  feature_list[i] .point. X  +  1; 
temp_y  =  feature_list[i] .point. y  +  1; 

fprintf  (outf  ile ,  ’'valuey.d  C/.d ,  ’/.d)  =  */. .  61f ;  \n" ,  level ,  temp.y ,  temp.x , 
f eature_list [i] .value) ; 

fprintf  (outf  ile ,  "meany.d C/.d ,  "/.d)  =  */. .  61f ;  \n" ,  level ,  temp.y ,  temp.x , 
f eature.list [i] .mean) ; 

fprintf  (outf  ile , "  variance’/.d  C/.d ,  y.d)  =  */. .  61f ;  \n" ,  level  .temp.y  .temp.x , 
f eature.list [i] .variance) ; 

} 

fprintf  (out  file,  "xhy.d  =  xhy.d  -  y..61f;\n",  level, 
level, centroid. x) ; 

fprintf  (outf  ile,  "yh’/.d  =  yhy.d  -  y..61f;\n",  level. 

level , centroid . y) ; 

fprintf (outf ile , "figure (2) \n" ) ; 

fprintf (outf ile, "clf\n") ; 

fprintf  (outf  ile ,  "surf  (xh/Cd.yhXd.value/id)  .shading  interp,  view(2),  colormap(jel 

fprintf (outf ile, "set (gca, 'YDir' , ’ reverse ’)\n") ; 

fprintf(outfile,"title(’Highest.y.d,  level  ’/.d,  figure  y.s')\n", 

max.index , level .name) ; 

fprintf (outf ile , "xlabel ( ’ x ’ ) \n" ) ; 

fprintf (outf ile , "ylabel ( ’ y ’ ) \n" ) ; 

fprintf (outf ile, "zlabel('coef’)\n")  ; 

fprintf (outf ile , "figure (3) \n") ; 

fprintf (outf ile, "clf\n") ; 

fprintf(outfile,"surf(xhy.d,yhy.d,abs(valuey.d))  .shading  interp,  view(2),  colorma 

fprintf (outf ile, "set (gca, ’YDir’ , ’ reverse ’)\n") ; 

fprintf  (outf  ile,  "title( ’Highest  .y.d,  level  y.d,  figure  y.s’)\n". 

majc.index ,  level  .name) ; 
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fprintf  (outf ile, "xlabeK ’x’)\n") ; 
f printf (outf ile , "ylabel ( ’ y ’ ) \n" ) ; 
fprintf (outf ile, "zlabel(’abs(coef) ’)\n") ; 

} 

f close (outf ile) ; 
return ; 

} 

void  init_write_lisp_scan(char  *file,  int  level) 

-C 

FILE  *outfile; 

char  file.nl [STRING] ,  f ile_n2 [STRING]  ; 

strcpy(f ile_nl ,f ile) ; 
sprintf  (file_n2,  "ly.d"  .level) ; 
strcat (f ile_nl ,f ile_n2) ; 
strcat (f ile.nl , " .lisp") ; 
outfile  =  fopen(file_nl, "w") ; 

if (outf ile  ==  NULL){ 

printf  ("\nError  writing  to  file  y,s\n"  ,f ile) ; 
exit (0) ; 

} 

else-C 

fprintf  (outfile,";  ;Scan  data  level  y.d\n",  level); 
fprintf (outf ile, " (defun  scan  ()  (recon  ’("); 

} 

f close (outf ile) ; 
return ; 


void  write_lisp_scan(Feature_Node  *f eature_list ,  char  *name,  int  level, 
int  h.init,  int  h_size,  int  v_init,  int  v_size) 

■C 

FILE  ♦outfile; 

int  i  =  0,  max.index  =  SIZE.LIST; 

Point  centroid  =  calc_centroid(feature_list ,  level); 
char  file.nl [STRING] ,  file_n2 [STRING] ; 

strcpy(f ile_nl .name) ; 
sprintf  (file_n2, "iy.d"  .level) ; 
strcat (file_nl ,file_n2) ; 
strcat(file_nl," .lisp") ; 
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outfile  =  fopen(file_nl, "a") ; 
ifCoutfile  ==  NULL){ 

printf  ("\nError  writing  to  file  7,s\n"  ,f ile_nl) ; 
exit (0) ; 

} 

else-C 

fprintf  (outfile,  "\n;  ;I_col  "/od,  I_row  '/.d,  h.size  ‘/.d,  v_size  '/,d\n(" 
h_init,v_init,h_size,v_size) ; 
for(i=0;  i  <  max_index;  i++) 

{ 

fprintf  (outfile,  "7..  161f  7..161f  %.161f  7..161f  7..161f  ", 
f eature.list [i] . point . x-centroid . x , 

f eature.list [i] . point. y-centroid.y,feature_list[i] .value, 
f eature.list [i] .mean,feature_list [i] .variance) ; 

} 

fprintf (outfile, ")\n") ; 

} 

f close (outfile) ; 
return ; 


void  end_write_lisp_scan(char  *file,  int  level) 

{ 

FILE  *outfile; 

char  file.nl [STRING] ,  file_n2 [STRING] ; 

strcpy(file_nl,file) ; 
sprintf  (f  ile_n2 ,  "I7«d" ,  level)  ; 
strcat(file_nl,f ile_n2) ; 
strcat (f ile_nl , " . lisp") ; 
outfile  =  fopen(file_nl,"a") ; 

if  (outfile  ==  NULL)-C 

printf  ("\nError  writing  to  file  7.s\n"  ,file) ; 
exit (0) ; 

} 

else-C 

fprintf (outfile , " ) ) ) \n" ) ; 

} 

f close (outfile) ; 
return ; 
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} 


void  init_write_lisp_win_id(char  *file,  int  level) 

■C 

FILE  *outfile; 

char  file.nl [STRING] ,  file_n2 [STRING] ; 

strcpy(f ile_nl ,f ile) ; 
sprintf  (f  ile_n2 ,  "iy.d" ,  level) ; 
street (file_nl ,file_n2) ; 
streat  (f  ile_iil , " .  lisp") ; 
outfile  =  fopen(file_nl,"w") ; 

ifCoutfile  ==  NULL){ 

printf  ("\nError  writing  to  file  */,s\n"  ,file) ; 
exit(O)  ; 

} 

else{ 

f printf (outfile, windows  list  for  level  %d  \n" ,  level) 
f  printf  (outfile,  "(setf  *win_idy,d*  ’(\n",  level); 

} 

fclose (outfile) ; 
return; 


void  write_lisp_win_id(char  =t=file,  int  level, 

int  h_init,  int  h_size,  int  v_init,  int  v_size) 

FILE  *outfile; 

char  file.nl [STRING] ,  file_n2 [STRING] ; 

strcpy(file_nl,file) ; 
sprintf  (file_n2,"l*/,d" , level) ; 
streat (f ile_nl , f ile_n2) ; 
streat (f ile_nl , " . lisp") ; 
outfile  =  fopen(file_nl,"a") ; 

if (outfile  ==  NULL){ 

printf  ("\nError  writing  to  file  y.s\n"  ,f ile) ; 
exit (0) ; 

} 
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else{ 

fprintf  (outfile (level  ‘/.d  i_col  '/.d  i_row  '/.d  h_size  %d  v_size  7.d)\n", 
level ,h_init , v_init ,h_size , v_size) ; 

} 

fclose (outfile) ; 
return ; 


void  end_write_lisp_win_id(char  *file,  int  level) 

FILE  *outfile; 

char  file.nl [STRING] ,  file_n2 [STRING] ; 

strcpy(file_nl,file) ; 
sprintf  (f  ile_n2 , "  l*/cd" ,  level) ; 
strcat(file_nl,file_n2) ; 
strcat (f ile_nl , " . lisp") ; 
outfile  =  fopen(file_nl, "a")  ; 

if  (outfile  ==  NULL)-C 

printf ("\nError  writing  to  file  %s\n",file); 
exit (0) ; 

} 

else{ 

fprintf (outfile, "))\n") ; 

} 

fclose (outfile) ; 
return ; 

} 

void  scan_picture (double  *in,  Feature_Node  *out,  int  level,  int  h_level_size, 
int  v_level_size,  chair  ♦name,  char  *win_id) 

int  window  =  0; 

int  h_init  =  0,  h_size  =  h_level_size,  v_init  =  0,  v_size  =  v_level_size ; 
int  win_min  =  h_level_size  »  SCAN_WIN; 

init_write_lisp_scan(name,  level); 
init_write_lisp_win_id(win_id,  level) ; 

/♦rectangular  template  for  b45^/ 
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v_size  =  28; 
h_size  =  36; 

for(v_init  =  0;  v_init+v_size  <=  v_level_size ;  v_init+=SCAN_STEP) 
for(h_init  =  0;  h_iiiit+h_size  <=  h_level_size;  h_init+=SCAN_STEP){ 

f ind_scaii_list_highest(in,  out,  h_init,  h_size,  v_iiiit,  v_size, 
level) ; 

write_wav_scaii_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h.init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++ ; 

} 

/^rectangular  template  for  f45*/ 
v_size  =  36; 
h_size  =  45; 

for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAN_STEP) 
for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP) { 

f ind_scan_list_highest(in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 

write_wav_scan_level_high_to_disk( out,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++ ; 

} 

/♦rectangular  template  for  k45*/ 
v_size  =  27 ; 
h_size  =  34; 

for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAN_STEP) 
for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP)-C 

f ind_scan_list_highest(in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 

write_wav_scan_level_high_to_disk(out,  name,  level,  h.size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++ ; 
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} 


/^rectangular  vertical  scanning*/ 
v_size  =  v_level_size  »  2; 
h_size  =  h_level_size; 

for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP) 
for(v_init  =  0;  v_init+v_size  <=  v_level_size ;  v_init+=SCAN_STEP){ 

f ind_scan_list_highest (in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 

write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out,  name,  level,  h_init,  h_size,  v.init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++ ; 

} 

/*end  rectangular  vertical  sceinning*/ 

/♦rectangular  horizontal  scanning*/ 
v_size  =  v_level_size; 
h_size  =  h_level_size  »  2; 

for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAM_STEP) 
for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP){ 

find_scan_list_highest (in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 

write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++ ; 

} 

/*end  rectcingular  horizontal  scanning*/ 

/♦rectangular  vertical  scanning*/ 
h_size  =  (int) (3.0/4. 0*h_level_size) ; 
v_size  =  v_level_size  »  2; 

for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP) 
for(v_init  =  0;  v_init+v_size  <=  v_level_size ;  v_init+=SCAN_STEP){ 

find_sccin_list_highest (in,  out,  h_init,  h_size,  v_init,  v_size. 
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level) ; 

write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++ ; 

} 

/*end  rectcingular  vertical  scanning*/ 

/^rectangular  horizontal  sceinning*/ 

h_size  =  h_level_size  »  2; 

v_size  =  (int) (3.0/4. 0*v_level_size); 

for(v_init  =  0;  v_init+v_size  <=  v_level_size ;  v_init+=SCAN_STEP) 
for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP) { 

f ind_scan_list_highest (in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 

write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  ncime,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++ ; 

} 

/♦end  rectangular  horizontal  scanning*/ 

h_size  =  (int) (h_level_size*0.6) ; 
v_size  =  v_level_size  »  2; 

for(h_init  =  0;  h_init+h_size  <=  h_level_size ;  h_init+=SCAN_STEP) 
for(v_init  =  0;  v_inittv_size  <=  v_level_size;  v_init+=SCAN_STEP) { 

f ind_scan_list_highest (in,  out,  h.init,  h.size,  v_init,  v_size, 
level) ; 

write_wav_scan_level_high_to_disk(out ,  name,  level,  h.size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v.init,  v_size) ; 
window++ ; 

> 

h_size  =  h_level_size  »  2; 
v_size  =  (int) (v_level_size*0.6) ; 

for(v_init  =  0;  v_init+v_size  <=  v_level_size ;  v_init+=SCAN_STEP) 
for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP) { 
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find_scan_list_highest(in,  out,  h_init,  h_size,  v_init,  v.size, 
level) ; 

write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h.size,  v_init,  v.size) ; 
window++ ; 

} 

end_write_lisp_scan(name,  level); 
end_write_lisp_win_id(win_id,  level) ; 
return ; 
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APPENDIX  E.  LISP  CODE  FOR 
RECOGNITION 
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•:f::^c:t::f:^3ti%j*i:f:3t:it::fc5jc:f::tc:*::f::t::f:Hc*****:4€********5|c*5t:*****3|c*********************5|«* 

;  File:  recon. lisp 
;  Name : Jader  Gomes  da  Silva  Filho 
;  Date: 08/14/97 
;  Operating  Environment:  SUN 
;  Language :  LISP 

•  ******:!:******  *********************************************  ******** 


(defun  initialize  (weights  ids  win_ids) 
(load_weights  weights) 

(load_ids  ids) 

(load_win_id  win_ids) 

) 


)  ) 

; ;  Load  values  for  the  weights 


(defun  load. weights  (weights) 

(setf  pathname  (make-pathname  :name  weights)) 

(with-open-f ile  (str  pathname  : direction  : input  : if-does-not-exist  : error) 
(do  ((expression  (read  str  nil  ’eof) 

(read  str  nil  ’eof))) 

((eql  expression  ’eof)) 

(eval  expression))) 

) 


}  > 

; ;  Load  values  for  the  inputs 

i  » 


(defun  load.inputs  (inputs) 

(setf  pathname  (mahe-pathname  :name  inputs)) 

(with-open-f ile  (str  pathname  : direction  : input  : if-does-not-exist  : error) 
(do  ((expression  (read  str  nil  ’eof) 

(read  str  nil  ’eof))) 

((eql  expression  ’eof)) 

(eval  expression))) 

) 
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; ;  Load  values  for  the  inputs 


>  9 


(defun  load_ids  (ids) 

(setf  pathneime  (make -pathname  :name  ids)) 

(with-open-file  (str  pathname  ;direction  : input  : if-does-not-exist  rerror) 
(do  ((expression  (read  str  nil  ’eof) 

(read  str  nil  ’eof))) 

((eql  expression  ’eof)) 

(eval  expression))) 

) 


Load  values  for  the  inputs 


(defun  load_win_id  (win.ids) 

(setf  pathname  (make-pathname  :name  win_ids)) 

(with-open-file  (str  pathname  : direction  : input  : if-does-not-exist  : error) 
(do  ((expression  (read  str  nil  ’eof) 

(read  str  nil  ’eof))) 

((eql  expression  ’eof)) 

(eval  expression))) 

) 


; ;Genetates  a  list  of  repeated  inputs  of  the  same  size  of 
;  ;the  weigth  list. 

9  9 

(defun  make_input_list  (input  w_list) 

(list_of  (length  w_list)  input)) 


this  provides  a  standard  activation 
function  for  a  neural  net — the  logistic 
sigmoid  fimction 
f(x)  =  1  /  (1  +  e  (-x)) 


(defun  sigmoid  (x) 

(/  (  +  1  (exp  (-  x))))) 
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; ;  this  does  summation  on  a  vector 

f  > 

; ;  >  (summation  vector) 

;;  >  (summation  ’(2.0  3.0  2.6)) 

;;  7.6 

>  i 

(defun  summation  (vector) 

(eval 

(cons  ’+  vector))) 


; ;  this  does  multiplication  of  two  vectors 

9  9 

;;  >  (vector .multiply  ’(0  1  1)  ’(-4.8  5.2  -2.3)) 
; ;  (0  5.2  -2.3) 

9  9 

(defun  vector.multiply  (vectorl  vector2) 

(mapcar  #’*  vectorl  vector2)) 


; ;  this  makes  a  list  n  elements  long  of  elt 

; ;  >  (list-of  32.0) 

;;  (2.0  2.0  2.0) 

(defun  list.of  (n  elt) 

(if  (zerop  n) 
nil 

(cons  elt  (list.of  (  -  n  1)  elt)))) 


; ;  this  does  sum  of  two  vectors 

9  9 

; ;  >  (vector.sum  ’(0  1  1)  ’(-4.8  5.2  -2.3)) 
;;  (-4.8  6.2  -1.3) 

9  9 

(defun  vector.sum  (vectorl  vector2) 

(mapcar  #’+  vectorl  vector2)) 
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; ; Evaluates  one  node  according  to  a  list  of  inputs 

;;and  a  list  of  weigths  for  that  node 

;;  >  (node.eval  ’(001)  ’(-4.8  4.6  -2.6)) 

;;  0.06913843 

(defun  node_eval  (inputs  weigths) 

(sigmoid  (summation  (vector_multiply  inputs  weigths)))) 


;; Evaluates  one  level,  generating  a  list  of  values 
;;that  will  be  the  input  for  the  next  level 

; ;  >  (level.eval  ’ (0  0)  inp_wlist) 

;;  (0.06913843  0.03916572) 

(defun  level_eval  (input  w_list) 

(mapcar  #’node_eval  (make_input_list  input  w_list)  w_list)) 


;;  Does  the  usual  forward  evaluation,  saving  the  values 
; ;  of  the  hidden  level 

(defun  forward.eval  (input  w.listl  w_list2) 

(if  (=  (nth  2  input)  0.0) 
nil 

(level_eval  (level_eval  input  w_listl)  w_list2)) 

) 


; ;  output  results 

f  f 

(defun  print_results  (input  output  nice_output) 

(format  t  "~y,Input:~A~’/.0utput;''A"y,Nice  Output; "A"*/,"  input  output  nice_output) 
(setf  pathname  (maike-pathname  :name  "output.dat")) 

(setf  outfile  (open  pathname  : direction  : output  : if -exists  : rename 
:if-does-not-exist  : create)) 

(format  outfile  ""‘/.Input :  ~A~%0utput ;  ~A~y.Nice  Output :  "A"’/." 
input  output  nice_output) 

(close  outfile) 
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; ;  remove-element 
;; (remove-element  0  ’(1234)) 

; ;  (2  3  4) 

(defun  remove-element  (elem  list) 

(append  (subseq  list  0  elem)  (subseq  list  (1+  elem)))) 


; ;  Does  the  usual  forward  evaluation 

>  9 

; ; (f orward_eval_inputs  ’((230)  (245))  ’((.5  .4  .3) (.5  .4  .3) (.5  .4  .3)) 
;;  ’((.5  .1  .2)(.5  .1  .2))) 

;; ((0.6768457  0.6768457)  (0.68717780.6871778)) 

(defim  forward_eval_inputs  (input  w_listl  w_list2) 

(if  (car  input) 

(append  (list  (f orward_eval  (car  input)  w_listl  w_list2)) 
(forward_eval_ inputs  (rest  input)  w_listl  w_list2)) 
nil 
) 

) 


; ;  User  Round  function 

9  9 

(defun  user_round  (input) 

(let  ((value  (car  input))) 

(if  value 
(if  (<  value  0.5) 

(cons  (floor  value)  (user_round  (rest  input))) 
(cons  (ceiling  value)  (user_round  (rest  input)))) 
nil) 

) 

) 


Round  the  results  to  O’s  and  I’s 

(round.outputs  ’((0.6871778  0.6871778)  nil  (0.6871778  0.6871778))) 
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;;((!  1)  nil  (1  1)) 


(defun  round_outputs  (output) 
(mapcair  #’user_round  output) 

) 


; ;  CALCULATE  ERROR  VECTOR  FOR  OUTPUT  NODES 
; ;  this  compares  calculated  output  with 
; ;  expected  output .  And  save  the  errors  in  the 
;;  variable  SAVED_ERR0R_0UT 

;;  (calc_output_error  '(1.0  0.0)  '(0.88  0.13)) 

;;  0.08845903 

(defun  calc_output_error  (exp_output  calc_output) 
(setf  SAVED_ERR0R_0UT 

(mean_sq_error  (mapcar  #'-  exp.output  calc_output)))) 


; ;  function  user  to  calculate  the  square  root  of  the 

; ;  mecin  of  the  errors 

(defun  mecui_sq_error  (w_list) 

(if  (null  w_list) 
nil 

(/  (sqrt (sTUiiination(vector_multiply  w_list  w_list)))  (length  w_list)))) 


; ;  function  user  to  calculate  the  mean  error  of  several 
; ;  inputs 

;;  (error.list  '((1.0  0.0))  '((0.88  0.13))) 

;;  (0.08845903) 

(defun  error_list  (output  nice_output) 

(mapcar  #'calc_output .error  output  nice.output) 

) 

(defun  find.first  (inp.list) 

(find- if  #' (lambda  (x) 

(<  X  0.003)) 
inp.list) 
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J  ) 


; ;  Find  best  id 

(defun  find.best  (id_list) 

(cond 

((null  id.list) 

(cond 

((and  (car  sol8)  (<  (car  sol8)  solthres))  (cons  8  sol8)) 

((and  (car  sol7)  (<  (car  sol7)  solthres))  (cons  7  sol7)) 

((and  (car  sol6)  (<  (car  sol6)  solthres))  (cons  6  sol6)) 

((and  (car  sol5)  (<  (car  sol5)  solthres))  (cons  5  sol5)) 

((and  (car  sol4)  (<  (car  sol4)  solthres))  (cons  4  sol4)) 

((and  (car  sol3)  (<  (car  sol3)  solthres))  (cons  3  sol3)) 

((and  (car  sol2)  (<  (car  sol2)  solthres))  (cons  2  sol2)) 

((and  (car  soli)  (<  (car  soli)  solthres))  (cons  1  soil)))) 

( (and 

(caadr  id_list)  (caaddr  id_list)  (caax  (cdddr  id_list)) 

(caar  (cddddr  id_list))  (caar  (nthcdr  5  id.list)) 

(caar  (nthcdr  6  id_list))  (caar  (nthcdr  7  id_list)) 

(<  (abs  (-  (caar  id_list)  (caadr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (cadr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caaddr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (caddr  id_list))) 

(<  (abs  (-  (caar  id.list)  (caeir  (cdddr  id_list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (cadddr  id_list))) 

(<  (abs  (-  (caar  id.list)  (caar  (cddddr  id_list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (car  (cddddr  id_list)))) 

(<  (abs  (-  (caar  id_list)  (caeu:  (nthcdr  5  id_list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (car  (nthcdr  5  id_list)))) 

(<  (abs  (-  (caar  id.list)  (caar  (nthcdr  6  id_list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (car  (nthcdr  6  id_list)))) 

(<  (abs  (-  (caar  id_list)  (caar  (nthcdr  7  id.list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (car  (nthcdr  7  id_list))))) 
(if  (euid  (<  (caar  id_list)  better8)  (>  (caar  id_list)  thres)) 
(setf  better8  (caeur  id_list) 
sol8  (nth  4  id_list))) 

(find.best  (nthcdr  8  id_list))) 

( (and 

(caadr  id_list)  (caaddr  id.list)  (caar  (cdddr  id_list)) 

(caar  (cddddr  id_list))  (caar  (nthcdr  5  id_list)) 
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(caar  (nthcdr  6  id_list)) 

(<  (abs  (-  (caar  id.list)  (caadr  id.list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (cadr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caaddr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id.list))  (nth  2  (caddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cdddr  id_list))))  acceptdif) 
(equal  (nth  2  (car  id.list))  (nth  2  (cadddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cddddr  id_list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (car  (cddddr  id_list)))) 

(<  (abs  (-  (caar  id_list)  (caar  (nthcdr  5  id_list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (car  (nthcdr  5  id_list)))) 

(<  (abs  (-  (caar  id.list)  (caar  (nthcdr  6  id.list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (car  (nthcdr  6  id_list))))) 
(if  (and  (<  (caar  id.list)  better?)  (>  (caar  id.list)  thres)) 
(setf  better?  (caar  id_list) 
sol?  (nth  3  id_list))) 

(find_best  (nthcdr  ?  id.list))) 

((and 

(caadr  id.list)  (caaddr  id.list)  (caar  (cdddr  id.list)) 

(caar  (cddddr  id_list))  (caar  (nthcdr  5  id_list)) 

(<  (abs  (-  (caar  id.list)  (caadr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (cadr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caaddr  id_list)))  acceptdif) 

(equal  (nth  2  (Ccir  id.list))  (nth  2  (caddr  id_list))) 

(<  (abs  (-  (caar  id.list)  (caar  (cdddr  id_list))))  acceptdif) 
(equal  (nth  2  (car  id.list))  (nth  2  (cadddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cddddr  id_list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (car  (cddddr  id_list)))) 

(<  (abs  (-  (caar  id.list)  (caar  (nthcdr  5  id_list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (car  (nthcdr  5  id_list))))) 
(if  (and  (<  (caar  id_list)  betters)  (>  (caar  id_list)  thres)) 
(setf  betters  (caar  id.list) 
solS  (nth  3  id_list))) 

(find.best  (nthcdr  S  id_list))) 

((and 

(caadr  id.list)  (caaddr  id_list)  (caeir  (cdddr  id_list)) 

(caar  (cddddr  id_list)) 

(<  (abs  (-  (caar  id.list)  (caadr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id.list))  (nth  2  (cadr  id_list))) 

(<  (abs  (-  (caar  id.list)  (caaddr  id.list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (caddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cdddr  id_list))))  acceptdif) 


155 


(equal  (nth  2  (car  id_list))  (nth  2  (cadddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cddddr  id.list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (car  (cddddr  id_list))))) 
(if  (and  (<  (caar  id_list)  betters)  (>  (caar  id.list)  thres)) 
(setf  betters  (caar  id_list) 
solS  (nth  2  id_list))) 

(find_best  (nthcdr  S  id.list))) 

((and 

(caadr  id_list)  (caaddr  id_list)  (caeir  (cdddr  id_list)) 

(<  (abs  (-  (caar  id_list)  (caadr  id_list)))  acceptdif) 

(equal  (nth  2  (cair  id_list))  (nth  2  (cadr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caaddr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (caddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cdddr  id.list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (cadddr  id.list)))) 

(if  (and  (<  (caar  id.list)  better4)  (>  (caar  id.list)  thres)) 
(setf  better4  (caar  id_list) 
sol4  (nth  2  id_list))) 

(find_best  (nthcdr  4  id.list))) 

( (and 

(caadr  id_list)  (caaddr  id_list) 

(<  (abs  (-  (caar  id_list)  (caadr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (cadr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caaddr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (caddr  id_list)))) 

(if  (and  (<  (caar  id_list)  betters)  (>  (caar  id_list)  thres)) 
(setf  betters  (caar  id_list) 
solS  (nth  1  id_list))) 

(find_best  (nthcdr  S  id_list))) 

((auid 

(caadr  id_list) 

(<  (abs  (-  (caar  id_list)  (caadr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id.list))  (nth  2  (cadr  id.list)))) 

(if  (and  (<  (caar  id.list)  better2)  (>  (caar  id_list)  thres)) 
(setf  better2  (caar  id_list) 
sol2  (nth  1  id_list))) 

(find_best  (nthcdr  2  id_list))) 

((and  (<  (caar  id_list)  betterl)  (>  (caar  id_list)  thres)) 

(setf  betterl  (caar  id_list) 
soli  (nth  0  id_list)) 

(find.best  (cdr  id_list))) 

(t  (find_best  (cdr  id_list))) 
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f  i 


) 

) 


; ;  Find  best  id 

(defun  find_best_id  (output  nice.output) 

(let* 

((list_error  (error_list  output  nice_output)) 

(minima  (find.first  list_error)) 

(pos  (position  minima  list.error  :test  #’equal)) 
(result  (nth  pos  nice.output))) 

(if  (<  minima  0.5) 

(list  'Error  minima  (nth  pos  *win_id3*) 

(car  (nth 

(position  result  *id_list3*  :key  #’cadr  :test  #’ equal) 
*id_list3*))) 

'(NO.RESULTS  1))) 

) 


>  y 

; ;  Find  id 

(defun  find_id  (output  nice.output) 

(mapcar  #' (lambda  (e  x  y) 

(if  e 

(list  e  y  (car 
(nth 

(position  X  *id_list3*  :key  #'cadr 
:test  #’ equal)  *id_list3*))) 
nil)) 

(error.list  output  nice_output)  nice.output  *win_id3*) 

) 

;;(find_id  '((0.6871778  0.6871778)  nil  (0.6871778  0.6871778)) 

;;'((!  1)  nil  (1  1))) 

; ; (error.list  '((0.6871778  0.6871778)  nil  (0.6871778  0.6871778)) 
;;’((!  1)  nil  (1  1))) 

;; (0.22119872  nil  0.22119872) 

; ;  Utility  Functions  to  count  the  number  of  identifications  of  a  kind 
(defun  compress  (x) 

(if  (consp  x) 
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(compr  (car  x)  1  (cdr  x)  (caar  x)) 
x)) 

(defun  compr  (elem  n  1st  summ) 

(if  (null  1st) 

(list  (n-elems  elem  n  summ)) 

(let  ((next  (car  1st))) 

(if  (string=  (nth  2  next)  (nth  2  elem)) 

(compr  elem  (+  n  1)  (cdr  1st)  (+  (nth  0  next)  summ)) 
(cons  (n-elems  elem  n  summ) 

(compr  next  1  (cdr  1st)  (car  next))))))) 

(defun  n-elems  (elem  n  summ) 

(list  (/  summ  n)  n  elem) 

) 


>  >  ~ 

; ;  Function  to  find  the  best  result  for  a  single  NN  System 

>  9 


(defun  recon  (input) 
(setf  thresl  0.0) 
(setf  thres  0.0) 

(setf  solthres  0.5) 
(setf  acceptdif  le-8) 
(setf  betterl  1.0) 
(setf  soli  '()) 

(setf  better2  1.0) 
(setf  sol2  ’()) 

(setf  betters  1.0) 
(setf  sol3  ’()) 

(setf  better4  1.0) 
(setf  sol4  ’()) 

(setf  betters  1.0) 
(setf  sol5  ’()) 

(setf  betters  1.0) 
(setf  sole  ’()) 

(setf  better?  1.0) 
(setf  sol?  ’()) 

(setf  betters  1.0) 
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(setf  sol8  ’()) 

(setf  best_result  ’()) 

(setf  output  (forward_eval_inputs  input  inp.wlist  hid_wlist)) 

(setf  nice_output  (round_outputs  output)) 

(setf  id_list_ori  (find.id  output  nice.output)) 

(setf  bestname  (meike-pathname  :name  "idsori.txt")) 

(with-open-file  (str  bestname  : direction  : output  :if-exists  : rename 
: if-does-not-exist  : create) 

(format  str  "Ids  =  "A"*/,"’/,"  id_list_ori)) 

;;  this  block  eliminates  windows  32x32,  undefined  and  nil  errors 
(setf  id_list_ori  (remove-if  #’ (lambda  (x) 

(or 

(string=  (nth  2  x)  ’undefined) 

(and 

(equal  (nth  7  (cadr  x))  32) 

(equal  (nth  9  (cadr  x))  32)) 

(equal  x  nil))) 
id_list_ori)) 

(setf  id_list_max  (sort  (compress  (sort  (copy-list  id_list_ori) 

#’ (lambda  (terml  term2) 

(string< 

(nth  2  terml) 

(nth  2  term2))))) 

#’ (lambda  (terml  term2) 

(<  (nth  0  terml)  (nth  0  term2))))) 

(setf  maxname  (make-pathname  :name  "max.txt")) 

(with-open-file  (str  meucname  :direction  :output  :if-exists  ;append 
: if-does-not-exist  : create) 

(format  str  "Ids  =  id_list_max) ) 

(setf  id_list_best  (find-if 
#’ (lambda  (x) 

(and 

(>  (cadr  x)  5) 

(not  (string=  (nth  2  (nth  2  x))  ’undefined)))) 
id_list_max) ) 

(setf  bestname  (make-pathname  :name  "best.txt")) 
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(with-open-file  (str  bestname  : direction  ; output  :if-exists  : append 
: if-does-not-exist  : create) 

(format  str  "Ids  =  "A"*/,"'/,"  id_list_best)) 


(setf  idsname  (make-pathname  :ncime  "ids.txt")) 

(with-open-file  (str  idsname  : direction  : output  ; if -exists  : append 
: if-does-not-exist  : create) 

(format  str  "Ids  =  "A"'/."  id_list_ori)) 

(setf  best.result  (find.best  id_list_ori)) 

(setf  best.result  (substitute  ’(1.0)  nil 
(list  sol3  sol4  sol5  sol6  sol7  sol8))) 

(setf  pos.best  (position  (eval 

(cons  ’min  (mapcar  #’car  best_result))) 
best_result  :key  #’car  :test  #’ equal)) 

(setf  best_result 

(cons  (+  pos.best  3)  (nth  pos_best  best_result))) 

(with-open-file  (str  resultname  : direction  : output  :if-exists  : append 
: if-does-not-exist  : create) 

(format  str  "~y,ALL  =  ~A~'/." 

(list  (cons  1  soil) 

(cons  2  sol2) 

(cons  3  sol3) 

(cons  4  sol4) 

(cons  5  sol5) 

(cons  6  sol6) 

(cons  7  sol7) 

(cons  8  sol8)))) 

(setf  resname  (make -pathname  :name  "res.txt")) 

(with-open-file  (str  resname  : direction  : output  : if -exists  : append 
: if-does-not-exist  : create) 

(format  str  "Best  Temp_Id  =  "'A“7,Best_Win _ Id  =  ~A~y." 

best_result  id_list_best) ) 

(format  t  "Best  Temp.Id  =  ~A~y,Best_Win_Id  =  ~A~y."  best_result  id_list_best) 
’DONE 
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Main  function 


(defun  recon_all  () 

(setf  result_list  ’()) 

(setf  resultname  (make-pathname  :name  "recon.txt")) 

(with-open-file  (str  resultname  ; direction  : output  :if-exists  : append 
: if-does-not-exist  .'create)) 

(initialize  "weights . lisp"  "idlSall.lisp"  "win_idl3.1isp") 

(scan) 

(if  (car  best_result) 

(setf  result_list  (cons  best.result  result_list))) 


To  be  used  with  multiple  NN  System 


(initialize  "weightsb.lisp" 
(scan) 

(if  (car  best_result) 

(setf  result_list  (cons 
(initialize  "weightsf . lisp" 
(scan) 

(if  (car  best.result) 

(setf  result_list  (cons 
(initialize  "weightsk.lisp" 
(scan) 

(if  (ccLT  best_result) 

(setf  result_list  (cons 


" idlSb . lisp"  " win.idlS . lisp" ) 

best_result  result_list))) 
"idlSf . lisp"  "win_idl3 . lisp") 

best_result  result_list))) 
"idl3k . lisp"  "win_idl3 . lisp") 

best_result  result_list))) 


(if  (car  result_list) 

(setf  best_id  (nth  (position  (eval 
(cons  ’min  (mapcar  #’cadr  result_list))) 
result _list  :key  #’cadr  :test  #’ equal) 
result_list))) 

(with-open-file  (str  resultname  : direction  : output  :if-exists  : append 
: if-does-not-exist  : create) 

(if  (and  best_id  (<  (cadr  best_id)  solthres)) 

(format  str  "Best  Id  = 
best.id) 

(format  str  "NO  RESULTS"))) 

(format  t  "Best  Id  =  ~A~%"  best_id) 

’DONE 
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) 
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APPENDIX  F.  C  CODE  FOR  EDGE 
DETECTION 
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/:t^4:***********  +  *********5^****Jf'******5|«**3f:***:<c5fc:|<:+:5|c:t::f::*::^c:(c*****************/ 

/*  FILENAME;  edge.types.h 

/*  CHANGES:  Jader  Gomes  da  Silva  Filho 
/*  Last  Update:  12/20/96 

/^DESCRIPTION :  Type  definitions  for  edge  detection 

/*;!«*!(:♦*  **!!=♦**!('**♦**=•=**♦*******!♦=**=(:♦♦*  St!*********************** 


Struct  point _type 

{ 

double  x,y;  /*  x,y  coordinates  of  the  pixel  endpoints  */ 

}; 

typedef  struct  point _type  POINT; 


typedef  struct  line_type 
-C 

char  name [3];  /*  for  troubleshooting  */ 

POINT  pi,  p2;  /*  the  2  endpoints  for  the  line  */ 

/*  Least  Squares  Fit  momments:  */ 
double  nn;  /*  changed  */ 

double  mOO;  /*  Number  of  pixels  should  be  long*/ 

double  mlO;  /*  Sum  x  */ 

double  mOl;  /*  Sum  y  */ 

double  mil;  /*  Sum  x*y  ♦/ 

double  m20;  /*  Sum  x*x  */ 

double  m02;  /*  Sum  y*y  */ 

double  phi;  /*  Calculated  normal  orientation  of  IMG_LINE  */ 
double  dmajor;  /*  Length  of  major  axis  of  equivallent  ellipse  */ 
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double  dminor;  /*  Length  of  minor  axis  of  equivallent  ellipse  */ 


double  rho;  /*  Ratio  dminor/dmajor  */ 

/*  Pattern  Matching  Information:  -  */ 

double  cingle_to_image_center ; 

int  ♦matchlist;/*  Bogus  pointers  for  IMG_LINE  *create_line(EDGE  *r,...)  */ 
/*  in  ’ edge support .c’ .  */ 

int  *pm;  /*  These  pointers  are  required  for  matching  and  are 

declared  as  (MATCHTYPE  *)s  in  'match_types .h’  */ 

struct  line_type  *next;  /*  ptr  to  the  next  IMG_LINE  in  the  image  */ 

}  IMG.LINE; 


typedef  struct  edge_region_type 

long  first .pixel; 

long  last.pixel  ; 

double  avg.phi; 

double  sum.phi; 

double  nn;/*  changed  */ 

double  mOO  ; 

double  mlO  ; 

double  mOl  ; 

double  mil  ; 

double  m20  ; 

double  m02 ; 

char  *region_number; 

struct  edge_region_type  *next  ; 

}  REGION; 


typedef  struct  pixel. info 
■C 

double  phi; 

REGION  *r; 

int  significant; 

char  *region.number; 
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double  mag;/*  changed  */ 
}  PIXEL  ; 


/Hc********************************************************************/ 

/♦  FILENAME:  edge support .h 

/*  AUTHOR:  Khaled  Morsy  (some  parts  from  original  version  by  Peterson) 
/♦  CHANGES:  Jader  Gomes  da  Silva  Filho 
/*  DATE:  11  October  1996 

/*  Last  Uppdate:  12/20/96 

/* 

/*  DESCRIPTION:  Collection  of  edge  finding  functions. 

/* 

/*  void  fatal (char  message) 

/*  int  gradient_angles_close (double  r, double  s) 

/*  int  close_to_negative_pi (double  phi) 

/*  int  horizontal (EDGE  *r) 

/♦  EDGE  *create_edge(long  z, double  phi) 

/*  void  add_pixel_to_edge  (long  z,  double  phi,  EDGE  *r) 

/*  EDGE  *combine_edges(EDGE  *rl,  EDGE  *r2) 

/*  IMG.LINE  *create_line  (EDGE  *r,  double  M20,  double  Mil,  double  M02, 

/*  double  Dmajor,  double  Dminor,  double  Rho) 

I*  void  line.test  (EDGE  *r) 

/*  void  check_active_edges  () 

/*  void  rgbalong_to_bwlong  (long  rgbalong,  long  *bwlong) 

/*  void  pixel.membership  (long  z,  double  phi) 

/*  void  set_pixel_white  (long  *rgbalong) 

/*  void  set_pixel_black  (long  *rgbalong) 

/*  void  write_all_lines  (long  x,  long  y) 

/♦  IMG.LINE  *fastlines  (NPSIMAGE  *img) 

/*  Gradient  Magnitude  Threshold  -  for  fastlines (img)  */ 

#define  THRESHOLD  100.0 

/♦  ANGLE  LIMIT  SUCH  THAT  A  LINE  IS  VERICAL  IF  ITS  ORIENTATION  EITHER  BETWEEN 
-1.8  DEG  TO  +1.8  DEG  OR  (  178.2  DEG  TO  181.8  DEG)  —  by  khaled  5-8-95  */ 
/*#define  VERT.LIMIT  .0314  /*  ABOUT  PI/100  ~~  1.8  DEG  */ 

#define  VERT.LIMIT  .0174  /*  ABOUT  PI/18  ~~  10  DEG  */ 

/*  Gradient  Angular  Orientation  */ 

#define  MAX.DELTA.PHI  (PI*22/180)  /*  maximum  difference  (in  radieins)*/ 

/*  Constcints  for  function:  void  line.test  (EDGE  *r)  */ 
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#define  MIN_PIXELS_PER_LINE  30  /*  was  10  minimum  pixels  allowed  for  a  IMG_LINE 
#define  MIN_DMAJ0R  15.0  /*was  10.0  *  minimum  major  axis  length  allowed  */ 
#define  MAX_RH0  1.0  /*  maximum  ratio  (Rho=Dminor/Dmaj or)  */ 

#define  PI  3.14159265 


/*  -  Global  variables  - */ 

FILE  *reg_file  ,  ♦image_out  ; 

long  Xdim;  /*  width  of  input  image  (nr  pixels)  */ 

long  Ydim;  /*  width  of  input  image  (nr  pixels  */ 

int  Linecount  =  0;  /*  counter  for  number  of  IMG_LINEs  made  */ 

int  gray  ;  /*  added  by  khaled  1-8-95  ♦/ 

int  reg.num  =  0; 

int  reg_count  =0;  /*  added  by  khaled  —  to  be  delete 

char  *image_data[646] [486] ; 
int  count  =  0; 

/*  Pointers  to:  first  region  ,  last  region  and  IMG_LINE  list*/ 

REGION  *first .region  =  NULL; 

REGION  *last_region=  NULL  ; 

IMG.LINE  *Line_list_head  =  NULL; 
int  neighbor .included; 
double  min; 

FILE  *reg_file; 

FUNCTION  :  normalize () 

PURPOSE  :  return  the  normalized  value  of  orientation 

double  normalize (o) 
double  o; 

■C 


int  d  =  0; 

if(o>=-PI  &&  0  <PI)  return(o); 

d=(o+PI)/(2*PI)  ; 

if  (d>=0  &&  o  >  0.0) 
d=d+l  ; 

o  =  0  -(  2  *PI  *(d-l))  ; 
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return  (o) ; 


/:fc5tj:^:|cs(c:<c:t::^:|c:|c5|c^H«**************5f:**********5f:******************5|c********* 

FUNCTION  :  convert () 

PURPOSE  :  return  the  charater  conversion  of  integer 

char  ^convert (n) 
int  n; 

{ 

char  *Y[10]  =  {"0","1",  "2",  "3"  ,  "4"  ,  "5"  ,  "6",  "7",  "8",  "9"}; 

return  Y [n] ; 

} 


void  update (current ,x,y) 
PIXEL  current  []  ; 
long  x,y; 

{ 

REGION  ♦reg; 
double  o; 


o=current [x] . phi ; 
reg=current [x] . r ; 

reg->last_pixel  =  (Xdim  *  y  +  x) ; 
reg->suin_phi+=o ; 

++reg->nn;  /*added*/ 

reg->mOO+=current [x] .mag;  /^changed*/ 

reg->mlO+=current [x] .mag*x;  /^changed*/ 

reg->m01+=current [x] .mag*y;  /*changed*/ 

reg->mll+=current  [x]  .mag*x*y;  /*ch6inged*/ 

reg->m20+=current [x] .mag*x*x;  /^changed*/ 

reg->m02+=current [x] .mag*y*y;  /*changed*/ 

reg->avg_phi  =  reg->svmi_phi  /  reg->nn;/*changed*/ 

image_data [x] Cy]  =  current [x] .region_number  ; 

/*  fprintf  (reg_file,  "\n’/.d  %d  “/.d  y.d"  ,x,y, current  [x]  .region_number,  reg  );  */ 

/*  printf  ("\nf irst  */.d  ,  last  ‘/od,  avg  phi  y,lf " ,reg->f irst_pixel,  reg->last_pixel 
,reg->avg_phi) ;*/ 

} 
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void  compare 1 (current ,x,y) 

PIXEL  current [] ; 
long  x,y; 

{ 

double  t ; 

REGION  ^current .region; 

t=  fabs (normalize (current [x] .phi-current [x-1] .phi)) ; 
if  ((t<=  MAX_DELTA_PHI  )&&(current [x-1]  . signif iccint  ==  1)) 


min  =  t; 

current [x].r  =  current [x-1] .r; 
current [x] .region.number  =  current [x-1] .region.number  ; 
neighbor.included  =  1; 


} 


} 

void  compare2 (current , prev , xl , x2 , y) 

PIXEL  current  [], prev  []  ; 
long  xl,x2,y; 

{ 

double  t ; 

REGION  * current .region; 

t=fabs (normalize (current [xl] .phi  -  prev [x2] .phi)) ; 


if  ((t<=  MAX.DELTA.PHI  )&& (prev [x2] . signif icant  ==  1)) 
■C 

if  (t<min) 

■C 

min  =  t; 

current [xl] .r  =  prev[x2].r; 
current [xl] .region.number  =  prev[x2] .region^number  ; 
neighbor.included  =  1; 

} 

} 
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} 


1 ****************************************  ********:♦::»: / 


REGION  *create_region(x,y,o,mag) 
long  x,y; 

double  o,mag;/*added  mag  to  the  function  call*/ 

{ 

REGION  *reg: 

if ((reg= (REGION  *)  malloc(sizeof (REGION) ))==NULL) 
printf ("Error  creating  Region"); 

++reg_count ; 

reg->f irst_pixel  =  (Xdim  *  y  +  x) ;  if(  reg->f irst_pixel  <  0)  printf ("ERROR") ; 

reg->last .pixel  =  (Xdim  *  y  +  x) ; 

reg->avg_phi  =  o; 

reg->sum_phi  =  o; 

reg->nn  =  1.0;  /*added*/ 

reg->m00  =  mag;  /^changed*/ 

reg->mlO  =  mag*x;  /*chcinged*/ 

reg->m01  =  mag*y;  /^changed*/ 

reg->mll  =  mag*x*y;  /^changed*/ 

reg->m20  =  mag*x*x;  /^changed*/ 

reg->m02  =  mag*y*y;  /*changed*/ 

reg->region_number  =  convert (reg.num) ; 

reg->next  =  NULL; 

if (f irst.region  ==  NULL) 
first .region  =  reg; 
if (last.region  !=  NULL) 
last.region->next=reg ; 
last .region=reg ; 

return (reg) ; 

} 

void  pixel. member ship ( current , pr e v , x , y , o ) 

PIXEL  current  []  ,prevn  ; 
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long  x,y; double  o; 

{ 

REGION  *reg: 

/*  if(y  >  484) 

{printf ("invalid  y  "); 
exit (-1) ; 

> 

*! 

if  (x  >  1) 

-C 

compare 1 (current, X, y) ; 
if  (y  >  1) 

compare2 (current, prev,x,x-l,y) ; 

} 

} 

if  (y  >  1) 

■C 

compare2 (current, prev,x,x,y) ; 
compare2(current ,prev,x,x+l,y) ; 

} 


if  (neighbor. included  ==  0) 

/♦added  mag  to  the  function  call*/ 

reg  =  create_region(x,y,o,current[x] .mag) ; 

count++; 

current [x] .region.number  =  convert (reg.num) ; 
image_data[x] [y]  =  current [x] . region.number 
reg_num++  ; 
if  (reg.num  >9) 

reg_num=0 ; 
current [x] . r  =  reg ; 


} 


if  (neighbor.included  ==  1) 

■C 

update ( current , x , y ) ; 

} 
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/*printf("7,d  y  =  %d",  y);*/ 

if(x  >  365  &&  x<  399) 

fprintf  (reg_file, "\n*/,d  %d  %s" ,x,y, current [x]  .region_number) ; 
/*fprintf  (reg_file,"\n'/.d  %d  %s"  ,x,y, current  [x]  .r)  ;*/ 


> 

/if. - 

/*  void  fatal  (char  message) 

/* 

/*  Prints  error  message  and  exits  out  of  the  program. 

/* - */ 

fatal (message) 

chcir  ^message; 

-C 

fprintf (stderr,  "Fatal  ERROR:  "); 
perror (message) ; 


exit(-l);  /*  exit  by  failure  */ 

} 

/* - */ 


/*  int  close_to_negative_pi  (double  phi) 

/* 

/*  Returns  1  if  orientation  phi  is  within  MAX_DELTA_PHI  to  -PI. 

/*  Returns  0  otherwise. 

/  ♦ - */ 

int  close_to_negative_pi(phi) 
double  phi; 

-C 

return (PI  +  phi  <  MAX.DELTA.PHI) ; 

} 


/  ♦ - */ 

/*  int  horizontal  (EDGE  *e) 

/* 

/*  Returns  1  if  orientation  of  EDGE  e  (r->avg_phi)  is  within 
/*  MAX_DELTA_PHI/4  to  PI/2  or  -PI/2  (the  normal  orientations  for 
/*  a  horizontal  line) . 
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/*  Returns  0  otherwise. 

/* - 

int  horizontal (e) 

REGION  *e; 

{ 

double  maxphi  =  MAX_DELTA_PHI  /  4.0; 

return( (fabs(e->avg_phi)  >  (0.5*PI) -maxphi)  && 

(fabs(e->avg_phi)  <  (0.5*PI)+maxphi)) ; 

} 


/^C - i(.l 

!*  IMG.LINE  *create_line  (EDGE  *r,  double  M20,  double  Mil,  double  M02, 
/*  double  Dmajor,  double  Dminor,  double  Rho) 

/* 


/*  Returns  pointer  to  newly  instantiated  IMG_LINE  with  variables  set 
/*  according  to  moments  described  by  EDGE  r,  secondary  moments 
/*  M20,  Mil,  and  M02,  axis  lengths  Dmajor,  Dminor,  and  ratio  of 

/*  axis  lengths  Rho. 

/* - 


IMG.LINE  *create_line (r,M20, Mil ,M02, Dmajor .Dminor , Rho) 

REGION  *r; 

double  M20 , Ml 1 , M02 , Dma j  or , Dminor , Rho ; 

{ 

IMG.LINE  *1; 
long  xl,  yl,  x2,  y2; 
double  Phi,  deltal,  delta2; 
int  negative_phi; 

/*  r->f irst_pixel  mapped  onto  the  IMG_LINE  will  be  endpoint  pi 
r->last_pixel  mapped  onto  the  IMG.LINE  will  be  endpoint  p2  */ 

xl  =  r->f irst_pixel%(Xdim) ; 

yl  =  r->first_pixel/(Xdim) ; 
x2  =  r->last_pixeiy,(Xdim) ; 
y2  =  r->last_pixel/(Xdim) ; 

/*  Calculate  the  normal  orientation  of  the  IMG.LINE  by  atan2()  function.  */ 
Phi  =  atan2(-2*Mll,M02-M20)/2.0; 

/♦  Deltal  and  delta2  are  the  offsets  used  to  calculate  the  endpoints 
for  the  IMG.LINE  segment  based  upon  values  xl,yl  and  x2,y2.  */ 
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deltal  =  (r->mlO/r->mOO  -  (double) xl)*f cos (Phi)  + 

(r->in01/r->m00  -  (double)yl)*fsin(Phi) ; 
delta2  =  (r->ml0/r->in00  -  (double)x2)*f  cos  (Phi)  + 

(r->m01/r->m00  -  (double)y2)*fsin(Phi) ; 

/*  Phi  =  atan2(-2*Mll,M02-M20)/2.0)  always  returns  positive  result  to  Phi. 
Therefore,  negative_phi  =  (r->avg_phi  <  0.0)  is  necessary.  */ 
negative _phi  =  (r->avg_phi  <  0.0); 

/*  Allocate  memory  for  IMG_LINE  1.  */ 
if((l  =  (IMG_LINE  ♦)malloc(sizeof (IMG.LINE)))  ==  NULL)  { 
fatal ( " create_line ;  malloc\n" ) ; 

} 

/*  Calculate  x,y  coordinates  for  endpoints  pi  and  p2.  ♦/ 

l->pl.x  =  (double)xl  +  deltal*fcos(Phi) ; 

l->pl.y  =  (double)yl  +  deltal*fsin(Phi) ; 

l->p2.x  =  (double) x2  +  delta2*fcos(Phi) ; 

l->p2.y  =  (double)y2  +  delta2*fsin(Phi) ; 

/*  Copy  least  squares  fit  moments .  */ 

l->m00  =  r->m00; 

l->ml0  =  r->ml0; 

l->m01  =  r->m01; 

l->mll  =  r->mll; 

l->m20  =  r->m20; 

l->m02  =  r->m02; 

/*  Phi  is  positive,  but  -pi  <  r->avg_phi  <  pi .  */ 
if (negative _phi)  l->phi  =  -Phi; 
else  l->phi  =  Phi; 

/*  Update  rest  of  IMG_LINE  values.  */ 
l->next  =  NULL; 

l->dmajor  =  Dmajor; 
l->dminor  =  Dminor; 
l->rho  =  Rho; 

l->angle_to_image_center  =  0.0;  /*  default  values  for  LINE  matching  */ 
l->matchlist  =  NULL; 
l->pm  =  NULL ; 
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++Line count ; 
strcpy (l->name , " 
sprintf (l->name , 


/*  Increment  global  variable,  Linecount.  */ 
"'/.d",  Linecount); 


return (1);  /*  Return  IMG_LINE  1.  */ 

} 


/*  ~  */ 

/*  void  line_test  (EDGE  *r) 

/* 

/*  Determines  if  EDGE  r  meets  three  requirements  to  be  a  IMG_LINE: 

/*  (1)  The  number  of  pixels  in  EDGE  r  (r->m00)  be  greater  than 

/*  MIN_PIXELS_PER_LINE. 

/*  (2)  The  ratio  (Rho)  of  the  length  of  major  and  minor  axes  of  the 

/*  EDGE  be  less  than  MAX_RH0. 

/*  (3)  The  length  of  the  major  axis  (Dmajor)  be  greater  them 

/*  MIN_DMAJOR,  the  minimum  IMG_LINE  length  allowed. 

/*  If  all  three  conditions  are  met,  a  new  IMG_LINE  type  is  created  and 
/*  appended  to  the  Line_list  in  order  of  significance  (in  this  case 
/*  Dmajor)  . 

/* - */ 


line_test (r) 

REGION  *r; 

{ 

IMG_LINE  *1,  *insert_pt  =  Line_list_head; 

double  M20 , Ml 1 , M02 , Ma , Mb , Mma j  or , Mminor , Dma j  or , Dminor , Rho ; 


/*  First  test  —  A  IMG_LINE  must  have  a  required  minimun  number  of  pixels.  */ 
if(r->m00  >  MIN_PIXELS_PER_LINE) 


■C 


/*  Calculate 
M20  =  r->m20 
Mil  =  r->mll 
M02  =  r->m02 


secondary  moments  by  least  squares  fit. 

-  ((r->mlO*r->mlO)/r->mOO) ; 

-  ((r->ml0*r->m01)/r->m00) ; 

-  ((r->m01*r->m01)/r->m00) ; 


*/ 
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/*  Calculate  major  and  minor  axis  lengths,  Dmajor  and  Dminor.  */ 
Ma  =  (M20+M02)/2.0; 

Mb  =  sqrt(  ((M02-M20)*(M02-M20)/4.0)  +  (Mll+Mll)  ); 

Mmajor  =  Ma  -  Mb; 

Mminor  =  Ma  +  Mb; 

Dmajor  =  4.0*sqrt (Mminor/r->m00) ; 

Dminor  =  4.0*sqrt(Mmajor/r->m00) ; 


/*  Calculate  ratio  Rho.  */ 

Rho  =  Dminor /Dmaj or ; 

/*  Second  &  Third  tests  —  Ratio  Rho  must  represent  a  line,  not  a  blob. 

—  IMG_LINE  must  be  at  least  a  certain  length.  * 
if ((Rho  <  MAX.RHO)  &&  (Dmajor  >  MIN.DMAJOR)) 

/*  The  EDGE  passed  the  three  requirments  to  be  a  line .  */ 

1  =  create_line(r, M20, Mil, M02, Dmajor, Dminor, Rho) ; 


/*  Add  new  IMG_LINE  to  IMG.LINE  list  in  order  by  IMG_LINE  length,  dmajor.  */ 
if (Line_list_head  ==  NULL) 

•C 

Line_list_head  =  1; 

} 

else  if(l->dmajor  >  Line_list_head->dmajor) 

■C 

l->next  =  Line_list_head; 

Line_list_head  =  1; 


> 

else 

■C 

while (( insert _pt->next  !=  NULL)  && 
(l->dmajor  <  insert _pt->next->dmaj or)) 
< 

insert _pt  =  insert_pt->next ; 

} 

l->next  =  insert_pt->next ; 
insert_pt->next  =  1; 
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} 


}  /*  end  if  second  and  third  tests  */ 
}  /*  end  if  first  test  */ 

} 


/* 


*/ 


/* - */ 

/*  void  rgbalong_to_bwlong  (long  rgbalong,  long  *bwlong) 

/* 

/*  Converts  color  to  black/white  for  rgba  formatted  pixels. 

/*  The  weights  assigned  for  each  color  are  television  standards. 

/*  This  function  courtesy  of  M.  Zyda. 

/* - 

rgbalong_to_bwlong(rgbalong,bwlong) 

long  rgbalong;  /*  input  color  rgbalong  */ 
long  ♦bwlong;  /*  output  b/w  rgbalong  */ 


unsigned  char  red,  green,  blue,  alpha; 
unsigned  bw; 

/*  Use  bit  masks  to  get  RGB  and  alpha  values  from  input  rgbalong.  */ 

red  =  rgbalong  &  OxOOOOOOff; 

green  =  (rgbalong  &  OxOOOOffOO)  »  8; 

blue  =  (rgbalong  &  OxOOffOOOO)  »  16; 

alpha  =  (rgbalong  &  Oxff 000000)  »  24; 

/*  if  (  i==  4000  II  i==  5000)  printf ("\n*/.d  : alpha  =  ‘/.d"  ,  i,  alpha);*/ 

/*  Calculate  the  black&white  intesity  using  NTSC  standard. 

intensity  =  0.299 (red)  +  0.587 (green)  +  0.1 14 (blue)  */ 

bw  =  (0.299*red)  +  (0.587*green)  +  (0. 114*blue) ; 

/*  Save  the  black&white  intensity  in  bwlong.  */ 

♦bwlong  =  (alpha«24)  I  (bw«16)  I  (bw«8)  |bw; 
gray=bw  ; 


} 
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- 

/*  void  set_pixel_wMte  (long  *rgbalong) 

/* 

/*  Sets  the  specified  long  integer  pointed  to  by  rgbalong  to  be 
/*  white  by  setting  all  RGB  bits  to  ff  (255  dec  ->  max  intensity). 

/* - 

set_pixel_white (rgbalong) 
long  *rgbalong; 

{ 

♦rgbalong  =  Oxffffffff; 

} 


/♦ - tf./ 

/*  void  set_pixel_black  (long  *rgbalong) 

/♦ 

/*  Sets  the  specified  long  integer  pointed  to  by  rgbalong  to  be 
/*  black  by  setting  all  RGB  bits  to  00  (0  dec  ->  min  intensity) . 

/♦ - ♦/ 

set_pixel_blaLCk  (rgbalong) 
long  *rgbalong; 

♦rgbalong  =  Oxff 000000; 

} 


/♦ - ♦/ 

/♦  void  write_all_lines  (long  x,  long  y) 

/♦ 

/♦  Write  to  output  file  "name. text". 

/* - - - 

write_all_lines (datafile , x , y) 
char  ♦datafile;  /♦added^/ 

long  x,y;  /♦  the  x,y  dimensions  of  the  image  ♦/ 

{ 

IMG.LINE  ♦!  =  Line_list_head; 

FILE  ♦lines.file; 

lines_file  =  fopen("lines.text","w") ; 

fprintf (lines.file," -  DATA  FOR  EXTRACTED  LINE  SEGMENTS  - \n"); 
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fprintfdines.file," Image  size:  nr  pixels  x  axis  =  */.d,  nr  pixels  y  axis  =  '/.dXn' 

fprintfdines.file, "Extracted  line  segments  listed  in  order  by  length. \n\n")  ; 

/*added  for  printing  number  of  lines  and  regions*/ 

fprintf  dines_file,"\nNumber  lines  found  in  /.s  =  '/.d",  datafile, Linecount) ; 
fprintfdines_file,"\nNumber  regions  found  in  7,5  =  7,d\n\n\  datafile, reg.count) : 

while  d!=NULL) 

-C 


/* changed  to  show  mOO  as  double*/ 

fprintf  dines_file,  "y,s>  length  =  */,.4f,  thinness  =  ‘/,.4f,  orientation  =  %.4f, 
l->name,  l->dmajor,  l->rho,  l->phi,  l->m00) ; 

fprintf  (lines.file,  "endpoints:  (%.2f  •/..2f)  (•/..2f  •/..2f  )\n\n" , 

l->pl . X , l->pl . y , l->p2 . X , l->p2 . y) ; 

1  =  l->next; 

} 

fclosedines_file)  ; 

printfC  lines  found  in  image  written  to:  dines  .text ’\n") ; 


/*  int  vert ical_edge (EDGE) 

/*  return  1  if  orientation  of  an  edge  is 

(BETWEEN  -VERT.LIMIT  &  +VERT_LIMIT)  OR  (>  PI  -  VERT  LIMIT  ) 
OR  (  <  -  (PI  +  VERT.LIMIT))  " 

int  vertical_edge(r) 

REGION  *r; 

■[ 

return  ( (fabs (r->avg_phi)  <  VERT.LIMIT)  || 

(fabs(r->avg_phi)  >  PI  -  VERT.LIMIT))  ; 


} 
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/♦ 

FILENAME: 

f indedge . c 

/* 

AUTHOR: 

Khaled  Morsy  &  L.  Remias 

/* 

CHANGES: 

Jader  Gomes  da  Silva  Filho 

/* 

DATE: 

18  January  1996 

/* 

Last  Update:  12/20/96 

/♦DESCRIPTION:  An  image  gradient  program  incorporating  edge-finding. 


/♦ 

/♦ 

/♦ 

/♦ 

/* 

/* 

/* 

/♦ 

/♦ 

/♦ 

/* 

/* 

/* 

/♦ 

/♦ 

/* 

/* 

/* 

/♦ 

/* 

/* 

/* 

/♦ 

/* 


Displays  edge-gradient  image  and  associated  lines. 

This  application  is  designed  for  use  on  a  Silicon- 
Graphics  Iris  (r)  workstation  utilizing  a  .sgi 
or  similar  rgb  formatted  image. 

RGB  values  are  of  type  LONG  in  the  form  AABBGGRR  where: 
AA  -  alpha  value,  0-255 
BB  -  blue  component,  0-255 
GG  -  green  component,  0-255 
RR  -  red  component,  0-255 

SiliconGraphics  graphics  library  fimctions  used  within 
the  display_bw_and_gradient_images()  routine: 
qdeviceO,  winsetO,  c3f(),  move2(),  draw2(), 
swapbuffersO  ,  reshapeviewportO  ,  wincloseO, 
and  IrectwriteO  . 

NPSIMAGE  function  routines  borrowed  courtesy  of  M.Zyda: 
read_sgi_rgbimage() ,  get_empty_rgba_nps image () , 
get_empty_rgb_npsimage() ,  and  rgbalong_to_bwlong() . 


Least  Squares  Fit  method  for  line-finding  from 
"Sonar  Data  Interpretaion  for  Autonomous  Mobile  Robots" 
by  Y.Keuiayama,  T. Noguchi,  &  B. Hartman,  1990. 

#include  <gl.h>  /♦  SiliconGraphics  (r)  graphic  libreiry  ♦/ 

#include  <gl/image.h>  /*  SGI  image  structure  library  */ 

#include  <device.h>  /*  Machine-dependent  device  library  */ 

/*  for  keys  and  mouse-buttons  */ 


#include  <stdio.h> 

#include  <math.h> 

#include  " image_types . h" 
#include  "edge .types. h" 
#include  "npsimagesupport .h' 


/♦  C  standard  i/o  library 
/*  C  math  library  for  atan2() 


*/ 

*/ 


/*  Type  definitions  for  NPSIMAGE,  etc.  */ 
/♦  Type  definitions  for  EDGE,  LINE,  etc  */ 
/♦  Some  NPSIMAGE  functions  ♦/ 
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/*  #include  " edge support .h" 

/*  EDGE  and  IMG.LINE  building  functions  */ 

#include  "esworkalsol .h" 

/*#include  "es96.h"*/ 

#include  "displaysupport .h"  /*  Graphics  display  functions  */ 

int  neighbor_included; 

mainCargc,  argv) 
int  argc; 
char  *argv  []  ; 

NPSIMAGE  *imgl,  /*  input  f ile_name .rgb  color  image  */ 

*img2,  /*  black&white  image  */ 

*img3;  /*  gradient  image  */ 

/*  pointers  to  RGBA  longs  ("bitsptr"s)  of  respective  NPSIMAGEs  */ 

long  *ptrl,  *ptr2,  *ptr3; 

double  dx,  dy,  Th  =  THRESHOLD*THRESHOLD ; 

int  z  =  0;  /^counter  for  pixels  in  gradient  image  */ 

REGION  *reg; 

/***♦* added  950830  km  ir******************************************/ 
PIXEL  current [646] ,prev [646] ; 
double  orientation; 
int  UL,U,UR,L,R,DL,D,DR,c; 
int  i,s,t,p; 
long  X,  y; 

long  ptr4 [313956] ;  /*646  x  486  */ 

reg.file  =  f open ( "regions. txt ", "w" ) ; 
image_out  =  f open ("image. out. dat " ,  "w"); 

/  :*;**♦***♦*!((*♦*:♦;  t  *******  ********  *♦***♦♦******♦♦/ 

if  (argc  !=  2)  fatalC'usage:  findedge  filenaimeXn")  ; 

/*  Read  in  input  rgb  image  */ 
imgl  =  read_sgi_rgbimage(argv[l]) ; 
if(imgl  ==(NPSIMAGE  *)  NULL) 

{ 

fatal  ("File  '/,s  is  a  NULL  image .  \n" ,  imgl->name)  ; 

} 
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Xdim  =  imgl->xsize; 
Ydim  =  imgl->ysize  ; 


/♦  else  set  global  Xdim  and  ptrl  */ 


ptrl  =  imgl->imgdata.bitsptr; 

/*  printf  ("findedge:>  %s  xsize=  ‘/,d  ysize=  */«d  pixels=  */,d\n", 

imgl->name,imgl->xsize,imgl->ysize,  (imgl->xsize*imgl->ysize) ) ;*/ 


/*  Declare  new  NPSIMAGEs  */ 

if ((imgl->type  ==  RGBAWITHALPHA)  I  I  (imgl->type  ==  RGBA)) 

{ 

img2  =  get_empty_rgba_npsimage(Xdim,imgl->ysize,imgl->name) ; 

imgS  =  get_empty_rgba_npsimage((Xdim-2) ,imgl->ysize-2,"findedge") ; 

} 

else 

fatal  ("Unknown  or  c-mapped  image  type:  */od.\n"  ,imgl->type)  ; 

} 

ptr2  =  img2->imgdata.bitsptr; 

ptr3  =  img3->imgdata.bitsptr; 

/*  The  scan  of  an  RGB  image  is  from  the  bottom  row  ->  up, 
traversing  the  rows  left  to  right.  */ 

/*  In  order  for  the  Sobel  operator  to  be  calculated  for  a  specific  pixel, 
all  eight  surronding  pixels  must  have  ein  absolute  (black  &  white) 
light  intensity  calculated.  Function  rgbalong_to_bwlong()  performs 
this  task.  */ 

/*  Due  to  the  nature  of  the  Sobel  operator,  the  pixels  in  the  top  and 
bottom  rows  as  well  as  pixels  in  the  leftmost  and  rightmost  columns 
of  the  input  image  will  not  be  calculated.  In  order  to  start  cal¬ 
culating  the  Sobel  operators,  the  first  2  rows  of  the  input  image 
must  be  converted  to  black  &  white  light  intensity  values.  */ 

/*  Calculate  bw  values  for  the  entire  input  image.  */ 

for(i=0;  i<  ((Xdim  *  Ydim)-1) ;++i) 

{ 

rgbalong_to_bwlong(  ptrl [i] ,&ptr2[i] ) ; 
ptr4[i]  =  gray; 

} 
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+  *************************  *********3ie/ 

/*  modified  by  Khaled  &  Remias  ***********************************/ 


for  (y=0;  y  <  Ydim;  ++y) 

{ 

for  (x=0;  X  <  Xdim;  ++x) 

■C 

i  =  (y  *  Xdim)  +  x; 

neighbor_included  =  0; 
min  =  PI ; 


UL=i+(Xdim-l) ;  U  =  UL+1  ;  UR  =  U+1; 

L=  i-1  ;  R  =  i+1; 

DL=i-(Xdim-l) ;  D=DL+1;  DR  =  D+1; 

if(x  ==  (Xdim-D) 

{ 

for  (c=0;  c<(Xdim-l);  C++) 

{ 

prev[c]= current  [c] ; 
current [c] . phi=0 . 0 ; 
current [c] . r  =  NULL ; 
current [c] .significant  =  0; 

} 

} 

if((y  ==  0)  II  (y  ==  (Ydim-D)  II  (x  ==  0)  I  I  (x  ==  (Xdim-1))) 

{ 

set_pixel_black(&ptr3[i] ) ; 

} 

else 

{ 

I*  Calculate  dx.dy  via  Sobel  operator  for  pixel  i.  */ 
dx  =  -  (ptr4[i+ (Xdim-1)])  +  (ptr4[i+(Xdim+l)] ) 

-  2  *(  ptr4Ci-l])+  2  *(ptr4[i+l]) 

-  (ptr4[i-Xdim-l])  +  (ptr4 [i-Xdim+1] ) ; 

dy  =  (ptr4[i+Xdim-l])  +  2* (ptr4 [i+Xdim] )  +(ptr4[i+Xdim+l] ) 
-(ptr4[i-Xdim-l])  -  2* (ptr4 [i-Xdim] )  -  (ptr4[i-Xdim+l] ) ; 
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if(  ((dx*dx)+(dy*dy))  >  Th) 

{ 

orientation  =  atan2(dy,dx) ; 
current [x] . phi  =  orientation; 
current [x] . mag  =  sqrt((dx*dx)+(dy*dy)) ;  /*  changed  */ 

/*printf("I  am  here  7.f  \n", current [x]  .mag)  ;*/ 
current  [x] . significant  =  1; 
set_pixel_black  (StptrS  [z] ) ; 

pixel_member ship (current , prev , x , y , orientation) ; 

/*  printf("\n  %d  Xd  7.s",x,  y,  image.dataCx]  [y] )  ;*/ 

} 

else 

{  image_data[x] [y]  = 

set_pixel_white(&ptr3[z] ) ; 

} 

++Z ; 

} 

}  /*  endfor  x  */ 
y  /*  end  for  y  */ 

f close (reg_file) ; 

reg  =  first .region; 

while  (reg  !=  NULL) 

■C 

/*  printf  ("\nreg7,u  m00=*/,f",  reg,reg->m00)  ;  */ 

/*  printf  ("\nm00=y,f  mlO=*/,f  m01='/,f  mll='/cf  m20=y,f  m02=y,f "  ,reg->m00, 
reg->mlO , reg->m01 , reg->ml 1 , reg->m20 , reg->m02) ; */ 
line .test (reg) ; 
reg  =  reg->next; 

} 


/*  Write  the  lines  list  to  file  "lines .text" .  */ 
write.all.lines(argv[l] ,img3->xsize,img3->ysize) ; 
printf  ("\nNumber  lines  found  in  ’/.s  =  y,d",  argv[l]  .Linecount) ; 
printf  ("\nNumber  regions  foimd  in  '/.s  =  y.d\n",  zirgv[l]  ,reg.count) ; 

j  jf:**^^**:*:)!:*^*:*:**^****  ***:(!  st:!*!*^::*:********  ♦♦♦♦if!*******!*!/ 

/:(=***************  VISUAL  DISPLAY  OF  REGIONS  .  .  BY  KHALED  MORSY  */ 
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/;t::(c*!t:!(:!(::(c*j|c*:)c:(i:t:****=)'*****=t:Ht*****Jt:****!t:5|:*=l=*=(:******  +  =t:H<**********:(:**!|t*/ 

s=l; 

t=91; 

for(count=l ;count<8;++count) 

-C 

f or(y=Ydim-2;  y  >1  ;  — y) 

{ 

for(x=s;  X  <  t  ;  ++x) 

{ 

p  =  (x/90)  +  ((y/63)  *  9)+l  ; 

/♦*♦  we  can  put  any  number  (t)  in  place  of  3  to  print  col  #  t  */ 
if  ((p7.9)==5&&  image_data[x]  Cy]  !=  NULL) 

{  if(x==s) 

fprintf (image.out  ,  "\n"); 

fprintf  (image_out ,  "‘/.s" ,  image_data[x]  [y] ) ; 

} 


} 

s=t;  t+=90;  fprintf (image_out,  "\n  \n") ; 


/*  Display  the  black&white  and  gradient  images  on  the  screen.  */ 
display _bw_and_gradient_images (img2,img3,Line_list_head) ; 
display_line_ image (img2 , Line_list_head) ; 
printf  ("\nf indedge  ‘/.s.  .  .done.\n",argv[l3) ; 

} 
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APPENDIX  G.  LISP  CODE  FOR 
GENERATING  A  3D  MODEL 
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;  File:  euler-angle-rigid-body. lisp  Franz  Common  LISP 

3 

;  File  that  defines  the  class  "rigid-body"  and  its  methods, 

3 

;  by  Prof.  Robert  McGhee 

;  Modified  by  Jader  Filho  —  1997 

j  :f:***:^  **♦  *************  ******  ************** 

(load  "robot-kinematics") 

(defclass  rigid-body 

0 

((posture  ;The  vector  (xe  ye  ze  phi  theta  psi) . 

:initform  ’(000000) 
rinitarg  : posture 
: accessor  posture) 

(posture-rate  ;The  vector  (xe-dot  ye-dot  ze-dot  phi-dot  theta-dot  psi-dot) . 
:initarg  : posture-rate 
: accessor  posture-rate) 

(velocity  ;The  six-vector  (u  v  w  p  q  r)  in  body  coordinates. 

:initform  ’(111.1.1.1) 
rinitarg  : velocity 
: accessor  velocity) 

(velocity-growth-rate  ;The  vector  (u-dot  v-dot  w-dot  p-dot  q-dot  r-dot) . 

: accessor  velocity-growth-rate) 

(forces-and-torques  ;The  vector  (Fx  Fy  Fz  L  M  N)  in  body  coordinates, 
rinitform  (list  0  0  (-  ^gravity*)  000) 

: accessor  forces-and-torques) 

(moments-of-inertia  ;The  vector  (Ix  ly  Iz)  in  principal  axis  coordinates 
rinitform  ’(1  1  1) 
rinitarg  : moments-of-inertia 
: accessor  moments-of-inertia) 

(mass 

: initf orm  1 
rinitarg  rmass 
: accessor  mass) 

(node-list  ;  (x  y  z  1)  in  body  coord  for  each  node.  Starts  with  (0  0  0  1) 

rinitform  ’((0001)  (0  10  0  1)) 
rinitarg  mode-list 
: accessor  node-list) 

(polygon-list 
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:initform  ’((0  1)) 

:initarg  :polygon-list 
: accessor  polygon-list) 

(transformed-node-list  ; (x  y  z  1)  in  earth  coord  for  each  node  in  node-list. 

: accessor  transformed-node-list) 

(H-matrix 

:initform  (unit-matrix  4) 

: accessor  H-matrix) 

(time-stamp 

: accessor  time-stamp))) 

(def method  initialize  ((body  rigid-body)) 

(setf  (treinsformed-node-list  body)  (node-list  body)) 

(setf  (velocity-growth-rate  body)  (update-velocity-growth-rate  body)) 

(setf  (posture-rate  body)  (earth-velocity  body)) 

(setf  (time-stamp  body)  (get-internal-real-time))) 

(defmethod  move  ((body  rigid-body)  azimuth  elevation  roll  x  y  z) 

(setf  (posture  body)  (list  x  y  z  roll  elevation  azimuth)) 

(setf  (H-matrix  body) 

(homogeneous-transform  azimuth  elevation  roll  x  y  z)) 

(treinsf orm-node-list  body)  ) 

(defmethod  get-delta-t  ((body  rigid-body))  0.1) 

;  (let*  ((new-time  (get-internal-real-time)) 

;  (delta-t  (/  (-  new-time  (time-stamp  body))  1000))) 

;  (setf  (time-stamp  body)  new-time) 

;  delta-t)) 

(defmethod  update-rigid-body  ((body  rigid-body))  ; Euler  integration. 

(let*  ((delta-t  (get-delta-t  body))) 

(update-posture  body  delta-t) 

(setf  (H-matrix  body)  (homogeneous-transform  (sixth  (posture  body)) 

(fifth  (posture  body))  (fourth  (posture  body))  (first  (posture  body)) 
(second  (posture  body))  (third  (posture  body)))) 

(transf orm-node-list  body) 

(update-velocity  body  delta-t) 

(update-velocity-growth-rate  body) ) ) 

(defmethod  update-velocity-growth-rate  ((body  rigid-body)) 

(setf  (velocity-growth-rate  body)  ; Assumes  principal  axis  coordinates  with 
(multiple-value-bind  ; origin  at  center  of  gravity  of  body*. 
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(Fx  Fy  Fz  L  M  N  u  v  w  p  q  r  Ix  ly  Iz)  ; Declares  local  variables, 
(values-list  ; Values  assigned. 

(append 

(forces-aud-torques  body)  (velocity  body)  (moments-of-inertia  body))) 
(list  (+  (*  V  r)  (*  -1  w  q)  (/  Fx  (mass  body)) 

(*  ^gravity*  (first  (third  (H-matrix  body))))) 

(+  (*  w  p)  (*  -1  u  r)  (/  Fy  (mass  body)) 

(*  ^gravity*  (second  (third  (H-matrix  body))))) 

(+  (♦  u  q)  (*  -1  V  p)  (/  Fz  (mass  body)) 

(♦  ^gravity*  (third  (third  (H-matrix  body))))) 

(/  (+  (*  (-  ly  Iz)  q  r)  L)  Ix) 

(/  (+  (*  (-  Iz  Ix)  r  p)  M)  ly) 

(/  (+  (*  (-  Ix  ly)  p  q)  N)  Iz)))))  ; Value  returned. 

(defmethod  update-velocity  ((body  rigid-body)  delta-t)  ; Euler  integration. 

(setf  (velocity  body) 

(vector-add  (velocity  body) 

(scalar-multiply  delta-t  (velocity-growth-rate  body))))) 

(defmethod  update-posture  ((body  rigid-body)  delta-t)  ;Euler  integration. 

(setf  (posture-rate  body)  (earth-velocity  body)) 

(setf  (posture  body) 

(vector-add  (posture  body)  (scalar-multiply  delta-t  (posture-rate  body))))) 

(defmethod  transform-node-list  ((body  rigid-body)) 

(setf  (trcinsf ormed-node-list  body) 

(mapcar  #’ (lambda  (node-location) 

(post-multiply  (H-matrix  body)  node-location)) 

(node-list  body)))) 

(def constant  *gravity*  32.2185) 

(defmethod  earth-velocity  ((body  rigid-body)) 

(let*  ((linear-velocity  (firstn  3  (velocity  body))) 

(rotational-velocity  (cdddr  (velocity  body))) 

(posture  (posture  body)) 

(R-matrix  (rotation-matrix  (sixth  posture)  (fifth  posture) 

(fourth  posture))) 

(linear-earth-velocity  (post-multiply  R-matrix  linear-velocity)) 
(T-matrix  (body-rate-to-euler-rate-matrix  (sixth  posture) 

(fifth  posture)  (fourth  posture))) 
(rotational-earth-velocity  (post-multiply  T-matrix 
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rotational-velocity) ) ) 

(append  linear-earth-velocity  rotational-earth-velocity))) 
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;  File;  video-camera. lisp  Franz  Common  LISP 
;  **  VIDEO-CAMERA  CLASS  DEFINITION  ** 

;  A  Video-camera  is  a  camera  which  uses  double  buffering  in  order  to 
;  display  a  sequence  of  images  without  flicker. 

;  by  Shirley  Iseikari  CS4314  Winter  1994  Final  Project 

;  Requires:  camera. cl 

;  by  Shirley  Isakari  CS4314  Winter  1994  Final  Project 
;  Adapted  from  Prof.  Kwak’s  Movie  Camera  flavor. 

;  Modified  by  Jader  Filho  —  1997 

(load  "camera") 

(load  "loadfloor") 

(defclass  video-camera  (camera) 

((image-window 
: accessor  image-window 

rinitform  (cw: make-bitmap-stream  : borders  5 

: width  300 
: height  400 
: title  "2nd  Floor" 

: background-color  cw:blue 
: foreground-color  cw: white 
:activate-p  nil)))) 


(defun  create-video-camera-1  () 

(setf  =t=camera-l*  (make-instance  'video-camera)) 

(queue-mouse  *camera-l*) ) 

(defmethod  new-picture  ((camera  video-camera)  (body  rigid-body)  draw-color) 
(erase-image-window  camera) 

(tcike-picture  camera  body  draw-color) 

(expose-image  camera)) 


;  jmodif ied 

(defmethod  draw-line-in-window  ((camera  video-camera)  start  end  draw-col6r) 
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(let  ((line-color  (cond 

((=0  draw-color)  cw: white) 

((=1  draw-color)  cw: yellow) 

((=2  draw-color)  cw: magenta) 

((=3  draw-color)  cw: green) 

((=4  draw-color)  cw:red) 

((=5  draw-color)  cw:cyan) 

((=6  draw-color)  cw: black) 

((=7  draw-color)  cw:blue)))) 

(cw: draw-line  (image-window  camera) 

(cw:make-position  :x  (first  start)  :y  (second  start)) 

(cw:make-position  :x  (first  end)  :y  (second  end)) 

: brush-width  0  : color  line-color))) 

(defmethod  expose-image  ((camera  video-camera)) 

(cw:bitblt  (image-window  camera)  0  0  (camera-window  camera)  00)) 

(defmethod  erase-image-window  ((camera  video-camera)) 

(cw: clear  (image-window  camera))) 

(defun  test-video-camera  (az  el  roll  x  y  z);Produces  top  view  of  default  rigid-bod; 
(reset -windows) 

(create-video-Ccunera-l) 

(loadfloor) 

(initialize  *floor*) 

(setf  (posture  *camera-l*)  (list  az  el  roll  x  y  z) 

(H-matrix  *camera-l*)  (homogeneous-trcinsform-matrix 
(posture  *camera-l*)) 

(inverse-H-matrix  *camera-l*)  (inverse-H  (H-matrix  *camera-l*))) 

(move-camera  * camera- 1*  az  el  roll  x  y  z) 

(new-picture  *camera-l*  *floor*  *floor-color*)) 

(defun  testO  ()  (test-video-camera  (/  pi  2)  0  0  -150  0  -100)) 

(defun  testl  ()  (test-video-camera  (-  (/  pi  2))  00  -150  200  -100)) 

(defun  test2  ()  (test-video-camera  pi  0  0  -150  100  -100)) 

(defun  tests  ()  (test-video-camera  pi  0  0  -150  100  -100)) 
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;  File:  movie-camera. lisp  Franz  Common  LISP 
;  **  MOVIE-CAMERA  CLASS  DEFINITION  ** 

;  A  Movie-camera  is  a  video-camera  which  is  able  to  record  and  play  back 
>  linages.  It  has  film  (defined  in  film. cl)  which  stores  the  images 
;  and  a  projector  (defined  in  projector . cl)  which  allows  convenient  playback 
;  of  the  images  via  a  Graphical  User  Interface  (GUI) . 

;  Requires:  camera. cl  video-camera. cl 

;  by  Shirley  Isakari  CS4314  Winter  1994  Final  Project 

;  Modifications  &  enheoicements  to  Mark  Kindi’s  Improved-Movie-Camera  flavor. 

;  Modified  by  Jader  Filho  —  1997 

;  *****!t:*******!t;!t!******!t:***t***********!t:**=t:*:t:***J|c**:t::(c**=|c**  +  ****jtr***j|e**=|c!(t*:(c,),:(c* 

(load  "video-camera") 

(load  "film") 


(defclass  movie-camera  (video-camera) 

((film  ;  class  containing  stored  images  (bitmaps) 

:initform  (maike-instance  ’film  :frames  (make-array  frames-max)) 

: accessor  film) 

(projector  ;  GUI  class  for  convenient  film  playback 
: accessor  projector 

:initform  (make- instance  ’projector)))) 

(load  "projector") 

(defconstant  frames-maix  60) 

(def constant  repetitions  1) 

(defun  creat e-movie-camera- 1  () 

(setf  *camera-l*  (make- instance  ’movie-camera)) 

(queue-mouse  *camera-l*) 

(initialize-f ilm  (film  *camera-l*)) 

(initialize-projector  (projector  *camera-l*))) 

;  Displays  current  image,  records  image  on  film,  and  advances  film  frame. 

(def method  expose-image  ((movie-camera  movie-Ccimera) )  ; display,  record  &  adv  fram< 
(cw:bitblt  (image-window  movie-camera)  0  0  (camera-window  movie-camera)  00) 
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(cwrbitblt  (image-window  movie-camera)  0  0 

(aref  (frames  (film  movie-camera))  (current -frame  (film  movie-camera)))  0  0) 
(advcince-new-frame  (film  movie-camera))) 


(setf  *floor*  (meike-instance  ’rigid-body)) 

(setf  *floor-color*  *white*) 

(defun  test-movie-camera  (az  el  roll  x  y  z) ; Produces  top  view  of  default  rigid-bod; 
(reset-windows) 

( create -movie -camera- 1 ) 

(loadfloor) 

(initialize  *floor*) 

(setf  (posture  ♦camera-1*)  (list  az  el  roll  x  y  z) 

(H-matrix  *camera-l*)  (homogeneous-transform-matrix  (posture  ♦camera-1*)) 
(inverse-H-matrix  *camera-l*)  (inverse-H  (H-matrix  *camera-l*))) 

(move-camera  *camera-l*  az  el  roll  x  y  z) 

(new-picture  *camera-l*  *floor*  *floor-color*)) 

(defun  test4  ()  (test-movie-camera  pi  0  0  -150  100  -100)) 


File:  film. lisp  Franz  Common  LISP 

**  FILM  CLASS  DEFINITION  ** 

Film  is  the  part  of  a  Movie-camera  which  stores  the  recorded  images. 
Requires:  camera. cl  video-ceimera.cl  movie-camera. cl 
by  Shirley  Isakari  CS4314  Winter  1994  Final  Project 

Modifications  &  enhancements  to  Mark  Kindi’s  Improved-Movie-Camera  flavor 
Modified  by  Jader  Filho  —  1997 


(defclass  film  () 

( (current-frame 
:initform  0 

: accessor  current -frame) 

(last-frame 
: initf orm  -1 
: accessor  last-frame) 

(maix-frames 
:  initf  orm  frames-mcix 
: accessor  max-frames) 

(frames  ;  array  of  stored  images  (bitmaps) 

:initaurg  :  frames 
: accessor  frames))) 


(defmethod  initialize-f ilm  ((film  film)) 

(dotimes  (count  (max-frames  film)) 

(setf  (aref  (frames  film)  count) 

(cw: make -bitmap  :bits-per-pixel  8  ;  color  images 

: width  300 
: height  400)))) 


(defmethod  goto-frame  (frame-number  (film  film)) 

(setf  (current -frame  film)  frame-number)) 

(defmethod  advcuice-frame  ((film  film))  ; Cycle  0  <=  current-frame  <=  last-frame 
(setf  (current -frame  film)  (mod  (1+  (current-frame  film)) 
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(1+  (last-frame  film))))) 


(defmethod  advance-new-frame  ((film  film)) 

;  case  where  new  exposures  made  over  previously  stored  frames 
;  (setf  (current -frame  film)  (mod  (1+  (current -frame  film)) 

;  (max-frames  film)))  ; Cycle  0  <=  current-frame  <=  max-fraimes 
; last-frame  <=  max-frames  -1 

(if  (and  (<  (last-frame  film)  (1-  (max-frames  film))) 

(=  1  (-  (current -frame  film)  (last-frame  film)))) 

(setf  (last-frame  film)  (1+  (last-frame  film)))) 

(setf  (current-frame  film)  (mod  (1+  (current -frame  film)) 

(max-frames  film))))  ; Cycle  0  <=  current-frame  <=  max-frames 

(defmethod  go-back-frame  ((film  film))  ; Cycle  last-frame  >=  current-frame  >=  0 
(setf  (current-frame  film)  (mod  (1-  ( current -freune  film)) 

(1+  (last-frame  film))))) 
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File:  loadfloor.lisp  Franz  Common  LISP 

File  with  the  data  necessary  for  building  a  3D  model  of  a  Hallway 
by  Jader  Filho  —  1997 


(defun  loadfloorO 
(setf  (node-list  *floor*) 


’((0.0  0.0  0.0  1) 

(0.0  0.0  0.0  1) 

(0.0  248.5  0.0  1) 

(-164.7  248.5  0.0  l);;door 
(-164.7  256.75  0.0  1) 
(-245.7  256.75  0.0  1) 
(-245.7  248.5  0.0  1) 
(-390.2  248.5  0.0  1) 
(-390.2  256.75  0.0  1) 
(-491.2  256.75  0.0  1) 
(-491.2  248.5  0.0  1) 
(-657.8  248.5  0.0  1) 
(-657.8  845.5  0.0  1) 
(-893.5  845.5  0.0  1) 
(-893.5  771.9  0.0  1) 
(-956.5  771.9  0.0  1) 
(-956.5  818.9  0.0  1) 
(-1096.68  818.9  0.0  1) 
(-1096.68  588.9  0.0  1) 
(-956.5  588.9  0.0  1) 

(-956.5  635.9  0.0  1) 
(-893.5  635.9  0.0  1) 
(-893.5  477.4  0.0  1) 
(-956.5  477.4  0.0  1) 
(-956.5  524.7  0.0  1) 
(-1096.68  524.7  0.0  1) 
(-1096.68  294.7  0.0  1) 
(-956.5  294.7  0.0  1) 
(-956.5  341.7  0.0  1) 
(-893.5  341.7  0.0  1) 
(-893.5  248.5  0.0  1) 


198 


(-1190.5  248.5  0.0  1) 
(-1190.5  256.75  0.0  1) 
(-1281.5  256.75  0.0  1) 
(-1281.5  248.5  0.0  1) 
(-1592.9  248.5  0.0  1) 
(-1592.9  256.75  0.0  1) 
(-1683.9  256.75  0.0  1) 
(-1683.9  248.5  0.0  1) 
(-2159.3  248.5  0.0  1) 
(-2159.3  256.75  0.0  1) 
(-2250.3  256.75  0.0  1) 
(-2250.3  248.5  0.0  1) 
(-2587.3  248.5  0.0  1) 
(-2587.3  256.75  0.0  1) 
(-2678.3  256.75  0.0  1) 
(-2678.3  248.5  0.0  1) 
(-3692.0  248.5  0.0  1) 
(-3692.0  457.0  0.0  1) 
(-3683.75  457.0  0.0  1) 
(-3683.75  548.0  0.0  1) 
(-3692.0  548.0  0.0  1) 
(-3692.0  727.3  0.0  1) 
(-3711.6  727.3  0.0  1) 
(-3711.6  809.7  0.0  1) 
(-3962.2  809.7  0.0  1) 
(-3962.2  358.9  0.0  1) 
(-3970.45  358.9  0.0  1) 
(-3970.45  267.9  0.0  1) 
(-3962.2  267.9  0.0  1) 
(-3962.2  248.5  0.0  1) ; ; ; ; 
(-5269.7  248.5  0.0  1) 
(-5269.7  256.75  0.0  1) 

(-5360.7  256.75  0.0  1) 
(-5360.7  248.5  0.0  1) 
(-5680.7  248.5  0.0  1) 
(-5680.7  375.0  0.0  1) 
(-5819.2  375.0  0.0  1) 
(-5819.2  248.5  0.0  1) 
(-6239.2  248.5  0.0  1) 
(-6239.2  0.0  0.0  1) 
(-5932.7  0.0  0.0  1) 
(-5932.7  -8.25  0.0  1) 
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(-5841.7  -8.25  0.0  1) 
(-5841.7  0.0  0.0  1) 
(-5364.2  0.0  0.0  1) 
(-5364.2  -8.25  0.0  1) 
(-5273.2  -8.25  0.0  1) 
(-5273.2  0.0  0.0  1) 
(-4796.2  0.0  0.0  1) 
(-4796.2  -8.25  0.0  1) 
(-4715.7  -8.25  0.0  1) 
(-4715.7  0.0  0.0  1) 
(-4534.0  0.0  0.0  1) 
(-4534.0  -48.0  0.0  1) 
(-4447.9  -48.0  0.0  1) 
(-4447.9  0.0  0.0  1) 
(-4367.9  0.0  0.0  1) 
(-4367.9  -8.25  0.0  1) 
(-4287.4  -8.25  0.0  1) 
(-4287.4  0.0  0.0  1) 
(-4228.4  0.0  0.0  1) 
(-4228.4  -8.25  0.0  1) 
(-4046.4  -8.25  0.0  1) 
(-4046.4  0.0  0.0  1) 
(-3999.8  0.0  0.0  1) 
(-3999.8  -8.25  0.0  1) 
(-3919.3  -8.25  0.0  1) 
(-3919.3  0.0  0.0  1) 
(-3351.3  0.0  0.0  1) 
(-3351.3  -8.25  0.0  1) 
(-3260.3  -8.25  0.0  1) 
(-3260.3  0.0  0.0  1) 

(-3018.8  0.0  0.0  1) 

(-3018.8  -13.25  0.0  1) 
(-3114.0  -13.25  0.0  1) 
(-3114.0  -89.25  0.0  1) 
(-3131.4  -89.25  0.0  1) 
(-3131.4  -609.85  0.0  1) 
(-2576.0  -609.85  0.0  1) 

(-2576.0  -201.65  0.0  1) 
(-2565.0  -201.65  0.0  1) 
(-2565.0  -609.85  0.0  1) 
(-2014.0  -609.85  0.0  1) 
(-2014.0  -89.25  0.0  1) 
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(-2032.0  -89.25  0.0  1) 

(-2032.0  -13.25  0.0  1) 

(-2032.0  0.0  0.0  1) 

(-1971.4  0.0  0.0  1) 

(-1971.4  -8.25  0.0  1) 

(-1880.4  -8.25  0.0  1) 

(-1880.4  0.0  0.0  1) 

(-1553.2  0.0  0.0  1) 

(-1553.2  -8.25  0.0  1) 

(-1462.2  -8.25  0.0  1) 

(-1462.2  0.0  0.0  1) 

(-1311.9  0.0  0.0  1) 

(-1311.9  -8.25  0.0  1) 

(-1220.9  -8.25  0.0  1) 

(-1220.9  0.0  0.0  1) 

(-834.4  0.0  0.0  1) 

(-834.4  -8.25  0.0  1) 

(-743.4  -8.25  0.0  1) 

(-743.4  0.0  0.0  1) 

(-417.1  0.0  0.0  1) 

(-417.1  -8.25  0.0  1) 

(-326.1  -8.25  0.0  1) 

(-326.1  0.0  0.0  1) 

(-265.9  0.0  0.0  1) 

(-265.9  -8.25  0.0  1) 

(-174.9  -8.25  0.0  1) 

(-174.9  0.0  0.0  1) 

;; drinking  fountain 
(-4516.9  -31.0  0.0  1) 

(-4516.9  0.0  0.0  1) 

(-4485.9  0.0  0.0  1) 

(-4485.9  -31.0  0.0  1) 

;; island  not  being  use  look  at  the  end 
(-2123.0  -13.25  0.0  1);;146 
(-2508.0  -13.25  0.0  1) 

(-2565.0  -13.25  0.0  1) 

(-2565.0  -109.25  0.0  1) 

(-2576.0  -109.25  0.0  1) 

(-2576.0  -89.25  0.0  1) 

(-2596.0  -89.25  0.0  1) 
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(-2596.0  -13.25  0.0  1) 
(-2927.0  -13.25  0.0  1) 
(-2927.0  0.0  0.0  1) 

(-2123.0  0.0  0.0  1) 

; ;boxl 

(-2729.2  -491.85  0.0  1);;157 
(-2973.2  -491.85  0.0  1) 
(-2973.2  -427.85  0.0  1) 
(-2729.2  -427.85  0.0  1) 

;  ;box2 

(-2729.2  -276.85  0.0  1);;161 
(-2973.2  -276.85  0.0  1) 
(-2973.2  -152.65  0.0  1) 
(-2729.2  -152.65  0.0  1) 


; ;ceilingl 

(-0.0  0.0  -217.5  1);;165 
(-0.0  248.5  -217.5  1);;  —2 
(-6239.2  248.5  -217.5  1);;— 69 
(-6239.2  0.0  -217.5  1) 

(-507.1  0.0  -217.5  1) 

(-507.1  0.0  -257  1) 

(-484.6  0.0  -257  1) 

(-484.6  0.0  -217.5  1) 


; ;ceiling2 

(-2.5  2.5  -217.5  1);;173 
(-2.5  246.0  -217.5  1);; 
(-6236.7  246.0  -217.5  1)  ; ; 
(-6236.7  2.5  -217.5  1) 
(-507.1  2.5  -217.5  1) 
(-507.1  2.5  -257  1) 

(-507.1  0.0  -257  1) 

(-484.6  0.0  -257  1) 

(-484.6  2.5  -257  1) 

(-484.6  2.5  -217.5  1) 


; ;ceiling3 

(-0.0  0.0  -257  1);;183  —173 
(-0.0  248.5  -257  1);;  —174 
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(-6239.2  248.5  -257  1);;— 175 

(-6239.2  0.0  -257  1);;  —176 

; ; scrub  board 

(0.0  0.0  -10.0  1)  ;;187 

(0.0  43.0  -10.0  1) 

(0.0  43.0  0.0  1) 

(0.0  0.0  0.0  1) 


(0.0  205.5  -10.0  1);;191 
(0.0  248.5  -10.0  1) 
(-159.7  248.5  -10.0  1) 
(-159.7  248.5  0.0  1) 

(0.0  248.5  0.0  1) 

(0.0  205.5  0.0  1) 


(-250.7 

248.5 

-10.0  1);;197 

(-385.2 

248.5 

-10.0  1) 

(-385.2 

248.5 

0.0  1) 

(-250.7 

248.5 

0.0  1) 

(-496.2 

248.5 

-10.0  1);;201 

(-657.8 

248.5 

-10.0  1) 

(-657.8 

845.5 

-10.0  1) 

(-657.8 

845.5 

0.0  1) 

(-657.8 

248.5 

0.0  1) 

(-496 . 2 

248.5 

0.0  1) 

(-820.3 

845.5 

-10.0  1);;207 

(-893.5 

845.5 

-10.0  1) 

(-893.5 

778.9 

-10.0  1)  ;;+7 

elevator 

(-893.5 

778.9 

0.0  1) 

(-893.5 

845.5 

0.0  1) 

(-820.5 

845.5 

0.0  1) 

(-893.5 

628.9 

-10.0  1);;213 

-7  elevator 

(-893.5 

484.4 

-10.0  l);;+7  elevator 

(-893.5 

484.4 

0.0  1) 

(-893.5 

628.9 

0.0  1) 

(-893.5 

334.7 

-10.0  1);;217 

-7  elevator 
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(-893.5  248.5  -10.0  1) 

(-1185.5  248.5  -10.0  1) 

(-1185.5  248.5  0.0  1) 

(-893.5  248.5  0.0  1) 

(-893.5  334.7  0.0  1) 

(-1286.5  248.5  -10.0  1);;223  +5 
(-1587.9  248.5  -10.0  l);;-5 
(-1587.9  248.5  0.0  1) 

(-1286.5  248.5  0.0  1) 

(-1688.9  248.5  -10.0  1);;227 
(-2154.3  248.5  -10.0  1) 

(-2154.3  248.5  0.0  1) 

(-1688.9  248.5  0.0  1) 

(-2255.3  248.5  -10.0  1);;231 
(-2582.3  248.5  -10.0  1) 

(-2582.3  248.5  0.0  1) 

(-2255.3  248.5  0.0  1) 

(-2683.3  248.5  -10.0  1);;235 
(-3276.8  248.5  -10.0  1) 

(-3276.8  248.5  0.0  1) 

(-2683.3  248.5  0.0  1) 


(-3358.2  248.5  -10.0  1);;239 
(-3692.0  248.5  -10.0  1) 
(-3692.0  452.0  -10.0  1) 
(-3692.0  452.0  0.0  1) 
(-3692.0  248.5  0.0  1) 
(-3358.2  248.5  0.0  1) 


(-3692.0  553.0  -10.0  1);;245 
(-3692.0  727.3  -10.0  1) 
(-3711.6  727.3  -10.0  1) 
(-3711.6  809.7  -10.0  1) 
(-3799.7  809.7  -10.0  1) 
(-3799.7  809.7  0.0  1) 
(-3711.6  809.7  0.0  1) 
(-3711.6  727.3  0.0  1) 
(-3692.0  727.3  0.0  1) 


204 


(-3692.0 

553.0 

0.0 

1) 

(-3962.2 

809.7 

-10. 

0  1);;255 

(-3962.2 

363.9 

-10. 

0  1) 

(-3962.2 

363.9 

0.0 

1) 

(-3962.2 

809.7 

0.0 

1) 

(-3962.2 

248.5 

-10. 

0  1);;259 

(-5264.7 

248.5 

-10. 

0  1) 

(-5264.7 

248.5 

0.0 

1) 

(-3962.2 

248.5 

0.0 

1) 

(-5365.7 

248.5 

-10. 

0  1);;263 

(-5680.7 

248.5 

-10. 

0  1) 

(-5680.7 

375.0 

-10. 

0  1) 

(-5819.2 

375.0 

-10. 

0  1) 

(-5819.2 

375.0 

0.0 

1) 

(-5680.7 

375.0 

0.0 

1) 

(-5680.7 

248.5 

0.0 

1) 

(-5365.7 

248.5 

0.0 

1) 

(-5819.2 

274.0 

-10. 

0  1);;271 

(-5819.2 

248.5 

-10. 

0  1) 

(-6239.2 

248.5 

-10. 

0  1) 

(-6239.2 

248.5 

0.0 

1) 

(-5819.2 

248.5 

0.0 

1) 

(-5819.2 

274.0 

0.0 

1) 

(-6239.2 

0.0  -10.0 

1);;277 

(-5937.7 

0.0  -10.0 

1) 

(-5937.7 

0.0  0 

.0  1) 

(-6239.2 

0.0  0 

.0  1) 

(-5836.7 

0.0  -10.0 

1); :281 

(-5369.2 

0.0  -10.0 

1) 

(-5369.2 

0.0  0 

.0  1) 

(-5836.7 

0.0  0 

.0  1) 

(-5268.2 

0.0  -10.0 

1) ; ;285 

(-4801.2 

0.0  -10.0 

1) 

(-4801.2 

0.0  0 

.0  1) 

(-5268.2 

0.0  0 

.0  1) 
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(-4711.7  0.0  -10.0  1);;289 
(-4534.0  0.0  -10.0  1) 
(-4534.0  -48.0  -10.0  1) 
(-4447.9  -48.0  -10.0  1) 
(-4447.9  0.0  -10.0  1) 
(-4371.9  0.0  -10.0  1) 
(-4371.9  0.0  0.0  1) 
(-4447.9  0.0  0.0  1) 
(-4447.9  -48.0  0.0  1) 
(-4534.0  -48.0  0.0  1) 
(-4534.0  0.0  0.0  1) 
(-4711.7  0.0  0.0  1) 


(-4282.4  0.0  -10.0  1);;301  +5 
(-4232.4  0.0  -10.0  l);;-5 
(-4232.4  0.0  0.0  1) 

(-4282.4  0.0  0.0  1) 


(-4041.4  0.0  -10.0  1);;305 
(-4004.8  0.0  -10.0  1) 
(-4004.8  0.0  0.0  1) 
(-4041.4  0.0  0.0  1) 


(-3914.3  0.0  -10.0  1);;309 
(-3356.3  0.0  -10.0  1) 
(-3356.3  0.0  0.0  1) 
(-3914.3  0.0  0.0  1) 


(-3255.3  0.0  -10.0  1);;313 
(-3023.8  0.0  -10.0  1) 
(-3023.8  0.0  0.0  1) 
(-3255.3  0.0  0.0  1) 


(-3023.8  -13.25  -10.0  1);;317 


(-3114.0  -13.25  -10.0  1) 
(-3114.0  -89.25  -10.0  1) 
(-3131.4  -89.25  -10.0  1) 
(-3131.4  -89.25  0.0  1) 
(-3114.0  -89.25  0.0  1) 
(-3114.0  -13.25  0.0  1) 
(-3023.8  -13.25  0.0  1) 


206 


(-3131.4 

(-3131.4 

(-2576.0 

(-2576.0 

(-2576.0 

(-2576.0 

(-3131.4 

(-3131.4 

(-2565.0 

(-2565.0 

(-2014.0 

(-2014.0 

(-2014.0 

(-2014.0 

(-2565.0 

(-2565.0 

(-2014.0 

(-2014.0 

(-2032.0 

(-2032.0 

(-2032.0 

(-2032.0 

(-2014.0 

(-2014.0 

(-2027.0 

(-1976.4 

(-1976.4 

(-2027.0 


-190.25 

-10. 

0  1); 

;325 

-609.85 

-10. 

0  1) 

-609.85 

-1C 

1.0  1) 

-206 . 65 

-10. 

0  1); 

:-5 

-206 . 65 

0.0 

1);;- 

5 

-609.85 

0.0 

1) 

-609.85 

0.0 

1) 

-190.25 

0.0 

1) 

-206 . 65 

-10. 

0  1); 

;333 

-609.85 

-10. 

0  1) 

-609 . 85 

-10. 

0  1) 

-357.25 

-10. 

0  1) 

-357 . 25 

0.0 

1) 

-609.85 

0.0 

1) 

-609.85 

0.0 

1) 

-206.65 

0.0 

1) 

-256.25 

-10. 

0  1); 

;341 

-89.25  - 

-10.0 

'  1) 

-89.25  - 

•10.0 

'  1) 

-13.25  - 

■10.0 

'  1) 

-13.25  0.0  1) 

-89.25  0.0  1) 

-89.25  0.0  1) 

-256.25 

0.0 

1) 

0.0  -10. 

0  1) 

::349 

0.0  -10. 

0  1) 

0.0  0.0 

1) 

0.0  0.0 

1) 

(-1875.4  0.0 
(-1558.2  0.0 
(-1558.2  0.0 
(-1875.4  0.0 

(-1457.2  0.0 
(-1316.9  0.0 
(-1316.9  0.0 
(-1457.2  0.0 


-10.0  1);;353 
-10.0  1) 

0.0  1) 

0.0  1) 

-10.0  1);;357 
-10.0  1) 

0.0  1) 

0.0  1) 


207 


(-1215.9  0.0  -10.0  1);;361 
(-839.4  0.0  -10.0  1) 
(-839.4  0.0  0.0  1) 

(-1215.9  0.0  0.0  1) 


(-738.4  0.0  -10.0  1);;365 
(-507.1  0.0  -10.0  1) 
(-507.1  0.0  0.0  1) 

(-738.4  0.0  0.0  1) 


(-484.6  0.0  -10.0  1);;369 
(-422.1  0.0  -10.0  1) 
(-422.1  0.0  0.0  1) 

(-484.6  0.0  0.0  1) 


(-321.1  0.0  -10.0  1);;373 
(-270.9  0.0  -10.0  1) 
(-270.9  0.0  0.0  1) 

(-321.1  0.0  0.0  1) 


(-169.9  0.0  -10.0  1);;377 
(0.0  0.0  -10.0  1) 

(0.0  0.0  0.0  1) 

(-169.9  0.0  0.0  1) 

; ; doors 

(0.0  48.25  0.0  1);;381 
(0.0  48.25  -212.5  1) 

(0.0  200.75  -212.5  1) 

(0.0  200.75  0.0  1) 

(0.0  124.25  0.0  1);;385 
(0.0  124.25  -212.5  1) 


(-164.7  248.5  0.0  1);;387 
(-164.7  248.5  -212.5  1) 
(-245.7  248.5  -212.5  1) 
(-245.7  248.5  0.0  1) 
(-245.7  248.5  -212.5  1) 
(-164.7  248.5  -212.5  1) 


208 


(-166.2 

256.75 

0.0  1);;393 

(-244.2 

256.75 

0.0  1) 

(-244.2 

256.75 

-212.5  1) 

(-166.2 

256.75 

-212.5  1) 

(-390.2 

248.5  0.0  1);;397 

(-390.2 

248.5  - 

•212.5  1) 

(-491.2 

248.5  - 

■212.5  1) 

(-491.2 

248.5  C 

1.0  1) 

(-491.2 

248.5  - 

■212.5  1) 

(-390.2 

248.5  - 

■212.5  1) 

(-391.7 

256.75 

0.0  1);;403 

(-489.7 

256.75 

0.0  1) 

(-489 . 7 

256.75 

-212.5  1) 

(-391.7 

256.75 

-212.5  1) 

(-662.8 

845.5  0 

1.0  1);;407  —  big  door 

(-662 . 8 

845.5  - 

212.5  1) 

(-815.3 

845.5  - 

212.5  1) 

(-815.3 

845.5  0 

.0  1) 

(-739 . 05 

845.5 

0.0  1);;411 

(-739.05 

845.5 

-212.5  1) 

(-1190.5 

248.5 

0.0  1);;413 

(-1190.5 

248.5 

-212.5  1) 

(-1281.5 

248.5 

-212.5  1) 

(-1281.5 

248.5 

0.0  1) 

(-1281.5 

248.5 

-212.5  1) 

(-1190.5 

248.5 

-212.5  1) 

(-1192.0 

256.75 

0.0  1);;419 

(-1280.0 

256.75 

0.0  1) 

(-1280.0 

256.75 

-212.5  1) 

(-1192.0 

256.75 

-212.5  1) 

(-1592.9 

248.5 

0.0  1)::423 

(-1592.9 

248.5 

-212.5  1) 

(-1683.9 

248.5 

-212.5  1) 

(-1683.9 

248.5 

0.0  1) 

(-1683.9 

248.5 

-212.5  1) 
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(-1592.9  248.5  -212.5  1) 


(-1594.4  256.75  0.0  1);;429 
(-1682.4  256.75  0.0  1) 
(-1682.4  256.75  -212.5  1) 
(-1594.4  256.75  -212.5  1) 

(-2159.3  248.5  0.0  1);;433 
(-2159.3  248.5  -212.5  1) 
(-2250.3  248.5  -212.5  1) 
(-2250.3  248.5  0.0  1) 
(-2250.3  248.5  -212.5  1) 
(-2159.3  248.5  -212.5  1) 

(-2160.8  256.75  0.0  1);;439 
(-2248.8  256.75  0.0  1) 
(-2248.8  256.75  -212.5  1) 
(-2160.8  256.75  -212.5  1) 

(-2587.3  248.5  0.0  1);;443 
(-2587.3  248.5  -212.5  1) 
(-2678.3  248.5  -212.5  1) 
(-2678.3  248.5  0.0  1) 
(-2678.3  248.5  -212.5  1) 
(-2587.3  248.5  -212.5  1) 

(-2588.8  256.75  0.0  1);;449 
(-2676.8  256.75  0.0  1) 
(-2676.8  256.75  -212.5  1) 
(-2588.8  256.75  -212.5  1) 


(-3692.0  457.0  0.0  1);;453  vertical 
(-3692.0  457.0  -212.5  1) 

(-3692.0  548.0  -212.5  1) 

(-3692.0  548.0  0.0  1) 

(-3692.0  548.0  -212.5  1) 

(-3692.0  457.0  -212.5  1) 

(-3683.75  458.5  0.0  1);;459 
(-3683.75  546.5  0.0  1) 

(-3683.75  546.5  -212.5  1) 

(-3683.75  458.5  -212.5  1) 


210 


(-3804.7  809.7  0.0  1);;463  —  big  door 
(-3804.7  809.7  -212.5  1) 

(-3957.2  809.7  -212.5  1) 

(-3957.2  809.7  0.0  1) 

(-3880.95  809.7  0.0  1);;467 
(-3880.95  809.7  -212.5  1) 

(-3962.2  358.9  0.0  1);;469  vertical 
(-3962.2  358.9  -212.5  1) 

(-3962.2  267.9  -212.5  1) 

(-3962.2  267.9  0.0  1) 

(-3962.2  267.9  -212.5  1) 

(-3962.2  358.9  -212.5  1) 

(-3970.45  357.4  0.0  1);;475 
(-3970.45  269.4  0.0  1) 

(-3970.45  269.4  -212.5  1) 

(-3970.45  357.4  -212.5  1) 

(-5269.7  248.5  0.0  1);;479 
(-5269.7  248.5  -212.5  1) 

(-5360.7  248.5  -212.5  1) 

(-5360.7  248.5  0.0  1) 

(-5360.7  248.5  -212.5  1) 

(-5269.7  248.5  -212.5  1) 

(-5271.2  256.75  0.0  1);;485 
(-5359.2  256.75  0.0  1) 

(-5359.2  256.75  -212.5  1) 

(-5271.2  256.75  -212.5  1) 

(-5819.2  370.0  0.0  1);;489  ;; auditorium 
(-5819.2  370.0  -212.5  1) 

(-5819.2  279.0  -212.5  1) 

(-5819.2  279.0  0.0  1) 

(-5932.7  0.0  0.0  1);;493 
(-5932.7  0.0  -212.5  1) 

(-5841.7  0.0  -212.5  1) 

(-5841.7  0.0  0.0  1) 


211 


(-5841.7  0.0  -212.5  1) 
(-5932.7  0.0  -212.5  1) 

(-5931.2  -8.25  0.0  1) ; ;499 
(-5843.2  -8.25  0.0  1) 
(-5843.2  -8.25  -212.5  1) 
(-5931.2  -8.25  -212.5  1) 

(-5364.2  0.0  0.0  1);;503 
(-5364.2  0.0  -212.5  1) 
(-5273.2  0.0  -212.5  1) 
(-5273.2  0.0  0.0  1) 
(-5273.2  0.0  -212.5  1) 
(-5364.2  0.0  -212.5  1) 

(-5362.7  -8.25  0.0  1);;509 
(-5274.7  -8.25  0.0  1) 
(-5274.7  -8.25  -212.5  1) 
(-5362.7  -8.25  -212.5  1) 

(-4796.2  0.0  0.0  1);;513 
(-4796.2  0.0  -212.5  1) 
(-4715.7  0.0  -212.5  1) 
(-4715.7  0.0  0.0  1) 
(-4715.7  0.0  -212.5  1) 
(-4796.2  0.0  -212.5  1) 

(-4794.7  -8.25  0.0  1);;519 
(-4717.2  -8.25  0.0  1) 
(-4717.2  -8.25  -212.5  1) 
(-4794.7  -8.25  -212.5  1) 

(-4367.9  0.0  0.0  1);;523 
(-4367.9  0.0  -212.5  1) 
(-4287.4  0.0  -212.5  1) 
(-4287.4  0.0  0.0  1) 
(-4287.4  0.0  -212.5  1) 
(-4367.9  0.0  -212.5  1) 

(-4366.4  -8.25  0.0  1):;529 
(-4288.9  -8.25  0.0  1) 
(-4288.9  -8.25  -212.5  1) 


(-4366.4  -8.25  -212.5  1) 


(-4228.4  0.0  0.0  1);;533 
(-4228.4  0.0  -212.5  1) 

(-4046.4  0.0  -212.5  1) 

(-4046.4  0.0  0.0  1) 

(-4046.4  0.0  -212.5  1) 

(-4228.4  0.0  -212.5  1) 

(-4226.9  -8.25  0.0  1);;539 
(-4047.9  -8.25  0.0  1) 

(-4047.9  -8.25  -212.5  1) 

(-4226.9  -8.25  -212.5  1) 

(-3999.8  0.0  0.0  1);;543 
(-3999.8  0.0  -212.5  1) 

(-3919.3  0.0  -212.5  1) 

(-3919.3  0.0  0.0  1) 

(-3919.3  0.0  -212.5  1) 

(-3999.8  0.0  -212.5  1) 

(-3998.3  -8.25  0.0  1);;549 
(-3920.8  -8.25  0.0  1) 

(-3920.8  -8.25  -212.5  1) 

(-3998.3  -8.25  -212.5  1) 

(-3351.3  0.0  0.0  1);;553 
(-3351.3  0.0  -212.5  1) 

(-3260.3  0.0  -212.5  1) 

(-3260.3  0.0  0.0  1) 

(-3260.3  0.0  -212.5  1) 

(-3351.3  0.0  -212.5  1) 

(-3349.8  -8.25  0.0  1);;559 
(-3261.8  -8.25  0.0  1) 

(-3261.8  -8.25  -212.5  1) 

(-3349.8  -8.25  -212.5  1) 

(-3131.4  -94.25  0.0  1);;563  room  242 
(-3131.4  -94.25  -212.5  1) 

(-3131.4  -185.25  -212.5  1) 

(-3131.4  -185.25  0.0  1) 


213 


(-2014.0 

(-2014.0 

(-2014.0 

(-2014.0 

(-1971.4 

(-1971.4 

(-1880.4 

(-1880.4 

(-1880.4 

(-1971.4 

(-1969.9 

(-1881.9 

(-1881.9 

(-1969.9 

(-1553.2 

(-1553.2 

(-1462.2 

(-1462.2 

(-1462.2 

(-1553.2 

(-1551.7 

(-1463.7 

(-1463.7 

(-1551.7 

(-1311.9 

(-1311.9 

(-1220.9 

(-1220.9 

(-1220.9 

(-1311.9 

(-1310.4 

(-1222.4 

(-1222.4 

(-1310.4 


-352.25  0.0  1);;567  room  242 
-352.25  -212.5  1) 

-261.25  -212.5  1) 

-261.25  0.0  1) 

0.0  0.0  1);;571 
0.0  -212.5  1) 

0.0  -212.5  1) 

0.0  0.0  1) 

0.0  -212.5  1) 

0.0  -212.5  1) 

-8.25  0.0  1);;577 
-8.25  0.0  1) 

-8.25  -212.5  1) 

-8.25  -212.5  1) 

0.0  0.0  1);;581 
0.0  -212.5  1) 

0.0  -212.5  1) 

0.0  0.0  1) 

0.0  -212.5  1) 

0.0  -212.5  1) 

-8.25  0.0  1);;587 
-8.25  0.0  1) 

-8.25  -212.5  1) 

-8.25  -212.5  1) 

0.0  0.0  1);;591 
0.0  -212.5  1) 

0.0  -212.5  1) 

0.0  0.0  1) 

0.0  -212.5  1) 

0.0  -212.5  1) 

-8.25  0.0  1);;597 
-8.25  0.0  1) 

-8.25  -212.5  1) 

-8.25  -212.5  1) 


214 


(-834 

.4 

0.0  0.0  1) 

:;601 

(-834 

.4 

0.0  -212.5 

1) 

(-743 

.4 

0.0  -212.5 

1) 

(-743 

.4 

0.0  0.0  1) 

(-743 

.4 

0.0  -212.5 

1) 

(-834 

.4 

0.0  -212.5 

1) 

(-832 

.9 

-8.25  0.0 

1); 

;607 

(-744 

.9 

-8.25  0.0 

1) 

(-744, 

.9 

-8.25  -212 

.5 

1) 

(-832 

.9 

-8.25  -212 

.5 

1) 

(-417, 

.1 

0.0  0.0  1) 

;;6li 

(-417, 

.1 

0.0  -212.5 

1) 

(-326 , 

.1 

0.0  -212.5 

1) 

(-326 , 

,1 

0.0  0.0  1) 

(-326 , 

,1 

0.0  -212.5 

1) 

(-417, 

.1 

0.0  -212.5 

1) 

(-415, 

.6 

-8.25  0.0 

1); 

;617 

(-327 , 

,6 

-8.25  0.0 

1) 

(-327 , 

,6 

-8.25  -212 

.5 

1) 

(-415, 

,6 

-8.25  -212 

.5 

1) 

(-265 , 

.9 

0.0  0.0  1) 

;;62i 

(-265, 

,9 

0.0  -212.5 

1) 

(-174. 

.9 

0.0  -212.5 

1) 

(-174, 

.9 

0.0  0.0  1) 

(-174, 

.9 

0.0  -212.5 

1) 

(-265 . 

.9 

0.0  -212.5 

1) 

(-264. 

.4 

-8.25  0.0 

1); 

;627 

(-176, 

.4 

-8.25  0.0 

1) 

(-176, 

,4 

-8.25  -212 

.5 

1) 

(-264 , 

.4 

-8.25  -212 

.5 

1) 

(-893 , 

,5 

771.9  0.0 

1); 

;  631 

(-893 . 

,5 

771.9  -212 

.5 

1) 

(-893 , 

,5 

635.9  -212 

.5 

1) 

(-893 , 

,5 

635.9  0.0 

1) 

(-893 , 

,5 

635.9  -212 

.5 

1) 

(-893 , 

,5 

771.9  -212 

.5 

1) 
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(-956.5  771.9  0.0  1);;637 
(-956.5  771.9  -212.5  1) 

(-956.5  635.9  -212.5  1) 

(-956.5  635.9  0.0  1) 

(-893.5  477.4  0.0  1);;  641  elev. 
(-893.5  477.4  -212.5  1) 

(-893.5  341.7  -212.5  1) 

(-893.5  341.7  0.0  1) 

(-893.5  341.7  -212.5  1) 

(-893.5  477.4  -212.5  1) 

(-956.5  477.4  0.0  1) ; ;647 
(-956.5  477.4  -212.5  1) 

(-956.5  341.7  -212.5  1) 

(-956.5  341.7  0.0  1) 

(-4137.4  -8.25  0.0  1);;651 
(-4137.4  -8.25  -212.5  1) 

; ; end  doors 

-ceiling 

(-657.8  248.5  0.0  1)  ;;653 
(-657.8  248.5  -212.5  1) 

(-893.5  248.5  -212.5  1) 

(-893.5  248.5  0.0  1) 

(-893.5  248.5  -212.5  1) 

(-893.5  262.5  -212.5  1) 

(-893.5  262.5  -286.5  1) 

(-893.5  262.5  -212.5  1) 

(-657.8  262.5  -212.5  1) 

(-657.8  262.5  -286.5  1) 

(-657.8  262.5  -212.5  1) 

(-657.8  248.5  -212.5  1) 

(-893.5  262.5  -286.5  1);;665 
(-657.8  262.5  -286.5  1) 

(-657.8  845.5  -286.5  1) 

(-657.8  845.5  0.0  1) 

(-657.8  845.5  -286.5  1) 


216 


(-893.5  845.5  -286.5  1) 
(-893.5  845.5  0.0  1) 

(-893.5  845.5  -286.5  1) 

(-3692.0  248.5  0.0  1)  :;673 
(-3692.0  248.5  -212.5  1) 
(-3962.2  248.5  -212.5  1) 
(-3962.2  248.5  0.0  1) 

(-3962.2  248.5  -212.5  1) 
(-3962.2  262.5  -212.5  1) 
(-3962.2  262.5  -286.5  1) 
(-3962.2  262.5  -212.5  1) 
(-3692.0  262.5  -212.5  1) 
(-3692.0  262.5  -286.5  1) 
(-3692.0  262.5  -212.5  1) 
(-3692.0  248.5  -212.5  1) 

(-3962.2  262.5  -286.5  1);;685 
(-3692.0  262.5  -286.5  1) 
(-3692.0  727.3  -286.5  1) 
(-3692.0  727.3  0.0  1) 

(-3692.0  727.3  -286.5  1) 
(-3711.6  727.3  -286.5  1) 
(-3711.6  727.3  0.0  1) 

(-3711.6  727.3  -286.5  1) 
(-3711.6  809.7  -286.5  1) 
(-3711.6  809.7  0.0  1) 

(-3711.6  809.7  -286.5  1) 
(-3962.2  809.7  -286.5  1) 
(-3962.2  809.7  0.0  1) 

(-3962.2  809.7  -286.5  1) 


(-5680.7  248.5  0.0  1)  ;;699 
(-5680.7  248.5  -212.5  1) 
(-5819.2  248.5  -212.5  1) 
(-5819.2  248.5  0.0  1) 
(-5819.2  248.5  -212.5  1) 
(-5819.2  276.0  -212.5  1) 
(-5819.2  276.0  -217.5  1) 
(-5819.2  276.0  -212.5  1) 
(-5680.7  276.0  -212.5  1) 
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(-5680.7  276.0  -217.5  1) 
(-5680.7  276.0  -212.5  1) 
(-5680.7  248.5  -212.5  1) 

(-5819.2  276.0  -217.5  1);;711 
(-5680.7  276.0  -217.5  1) 
(-5680.7  375.5  -217.5  1) 
(-5680.7  375.5  0.0  1) 

(-5680.7  375.5  -217.5  1) 
(-5819.2  375.5  -217.5  1) 
(-5819.2  375.5  0.0  1) 

(-5819.2  375.5  -217.5  1) 


(-4534.0  0.0  0.0  1);;719 
(-4534.0  0.0  -212.5  1) 
(-4534.0  -48.0  -212.5  1) 
(-4534.0  -48.0  0.0  1) 

(-4447.9  0.0  0.0  1);:723 
(-4447.9  0.0  -212.5  1) 
(-4447.9  -48.0  -212.5  1) 
(-4447.9  -48.0  0.0  1) 

; ; water  fountain 
(-4516.9  0.0  0.0  1);;727 
(-4516.9  0.0  -94.0  1) 
(-4516.9  -31.0  -94.0  1) 
(-4516.9  -31.0  0.0  1) 

(-4485.9  0.0  0.0  1);;731 
(-4485.9  0.0  -94.0  1) 
(-4485.9  -31.0  -94.0  1) 
(-4485.9  -31.0  0.0  1) 

; ;boxl 

(-2729.2  -491.85  0.0  1);;735 
(-2729.2  -491.85  -61.0  1) 
(-2729.2  -427.85  -61.0  1) 
(-2729.2  -427.85  0.0  1) 

(-2973.2  -491.85  0.0  1):;739 
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(-2973.2 

(-2973.2 

(-2973.2 

; ;box2 

(-2729.2 

(-2729.2 

(-2729.2 

(-2729.2 

(-2973.2 

(-2973.2 

(-2973.2 

(-2973.2 


-491 

00 

cn 

-61. 

.0 

1) 

-427, 

,85 

-61. 

,0 

1) 

-427, 

.85 

0.0 

1) 

-276 

.85 

0.0 

1) 

;;743 

-276 

.85 

-61, 

.0 

1) 

-152 

.85 

-61, 

.0 

1) 

-152 

,85 

0.0 

1) 

-276 

.85 

0.0 

1) 

;;747 

-276 

,85 

-61. 

,0 

1) 

-152 

.85 

-61. 

.0 

1) 

-152 

.85 

0.0 

1) 

; ;elevl 

(-956.5  818.9  0.0  1);;751 
(-956.5  818.9  -233.0  1) 
(-1096.68  818.9  -233.0  1) 
(-1096.68  818.9  0.0  1) 


(-956.5  588.9  0.0  1);;755 
(-956.5  588.9  -233.0  1) 
(-1096.68  588.9  -233.0  1) 
(-1096.68  588.9  0.0  1) 

; ;elev2 

(-956.5  524.7  0.0  1);;759 
(-956.5  524.7  -233.0  1) 
(-1096.68  524.7  -233.0  1) 
(-1096.68  524.7  0.0  1) 


(-956.5  294.7  0.0  1);;763 
(-956.5  294.7  -233.0  1) 
(-1096.68  294.7  -233.0  1) 
(-1096.68  294.7  0.0  1) 


;  ;mail 

(-507.1  0.0  0.0  1);;767 
(-507.1  0.0  -257  1) 
(-484.6  0.0  -257  1) 
(-484.6  0.0  0.0  1) 
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; ;grid 

(-3276.8  248.5  0.0  1);;771 
(-3358.2  248.5  0.0  1) 
(-3358.2  248.5  -45.5  1) 
(-3276.8  248.5  -45.5  1) 


; ; island  scrub  board  extern 
(-2922.0  0.0  0.0  1);:775 
(-2922.0  0.0  -10.0  1) 
(-2128.0  0.0  -10.0  1) 
(-2128.0  0.0  0.0  1) 

(-2927.0  0.0  0.0  1);;779 
(-2927.0  0.0  -212.5  1) 
(-3018.8  0.0  -212.5  1) 
(-3018.8  0.0  0.0  1) 

(-2123.0  0.0  0.0  1);;783 
(-2123.0  0.0  -212.5  1) 
(-2032.0  0.0  -212.5  1) 
(-2032.0  0.0  0.0  1) 


;;242  ceiling 

(-2545.0  -13.25  -370.0  1);;787 
(-2545.0  -89.25  -370.0  1) 
(-2596.0  -89.25  -370.0  1) 
(-2596.0  -13.25  -370.0  1) 
(-3114.0  -13.25  -370.0  1) 
(-3114.0  -89.25  -370.0  1) 
(-3131.4  -89.25  -370.0  1) 
(-3131.4  -609.85  -370.0  1) 
(-2014.0  -609.85  -370.0  1) 
(-2014.0  -89.25  -370.0  1) 
(-2032.0  -89.25  -370.0  1) 
(-2032.0  -13.25  -370.0  1) 


(-2545.0  -13.25  0.0  1);;799 
(-2545.0  -89.25  0.0  1) 
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(-2596.0  -89.25  0.0  1) 
(-2596.0  -13.25  0.0  1) 
(-3114.0  -13.25  0.0  1) 
(-3114.0  -89.25  0.0  1) 
(-3131.4  -89.25  0.0  1) 
(-3131.4  -609.85  0.0  1) 

(-2014.0  -609.85  0.0  1) 
(-2014.0  -89.25  0.0  1) 
(-2032.0  -89.25  0.0  1) 
(-2032.0  -13.25  0.0  1) 

;; island  scrub  board  intern 
(-2128.0  -13.25  0.0  1);;811 
(-2545.0  -13.25  0.0  1) 
(-2545.0  -89.25  0.0  1) 
(-2565.0  -89.25  0.0  1) 
(-2565.0  -104.25  0.0  1) 
(-2565.0  -104.25  -10.0  1) 
(-2565.0  -89.25  -10.0  1) 
(-2545.0  -89.25  -10.0  1) 
(-2545.0  -13.25  -10.0  1) 
(-2128.0  -13.25  -10.0  1) 

(-2576.0  -104.25  0.0  1);;821 
(-2576.0  -89.25  0.0  1) 
(-2596.0  -89.25  0.0  1) 
(-2596.0  -13.25  0.0  1) 
(-2922.0  -13.25  0.0  1) 
(-2922.0  -13.25  -10.0  1) 
(-2596.0  -13.25  -10.0  1) 
(-2596.0  -89.25  -10.0  1) 
(-2576.0  -89.25  -10.0  1) 
(-2576.0  -104.25  -10.0  1) 

;;wall  between  240  242 
(-2565.0  -89.25  0.0  1);;831 
(-2565.0  -89.25  -246.0  1) 
(-2576.0  -89.25  -246.0  1) 
(-2576.0  -89.25  0.0  1) 

(-2565.0  -609.85  0.0  1);;835 
(-2565.0  -609.85  -246.0  1) 
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(-2576.0  -609.85  -246.0  1) 
(-2576.0  -609.85  0.0  1) 


; ;door  between  240  242 
(-2565.0  -201.65  0.0  1);;839 
(-2576.0  -201.65  0.0  1) 
(-2576.0  -201.65  -212.5  1) 
(-2565.0  -201.65  -212.5  1) 

(-2565.0  -109.25  0.0  1) ; ;843 
(-2576.0  -109.25  0.0  1) 
(-2576.0  -109.25  -212.5  1) 
(-2565.0  -109.25  -212.5  1) 


;  ;islcind 

(-2123.0  -13.25  0.0  1);;847 
(-2545.0  -13.25  0.0  1) 
(-2545.0  -89.25  0.0  1) 
(-2565.0  -89.25  0.0  1) 
(-2565.0  -109.25  0.0  1) 
(-2576.0  -109.25  0.0  1) 
(-2576.0  -89.25  0.0  1) 
(-2596.0  -89.25  0.0  1) 
(-2596.0  -13.25  0.0  1) 
(-2927.0  -13.25  0.0  1) 
(-2927.0  0.0  0.0  1) 

(-2123.0  0.0  0.0  1) 

) 

(polygon-list  *floor*) 

’ (  ; ; floor 

(123456789  10 

11  12  13  14  15  16  17  18  19  20 

21  22  23  24  25  26  27  28  29  30 

31  32  33  34  35  36  37  38  39  40 

41  42  43  44  45  46  47  48  49  50 

51  52  53  54  55  56  57  58  59  60 

61  62  63  64  65  66  67  68  69  70 
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71  72  73  74  75  76  77  78  79  80 

81  82  83  84  85  86  87  88  89  90 

91  92  93  94  95  96  97  98  99  100 

101  102  103  104  105  106  107  108  109  110 

111  112  113  114  115  116  117  118  119  120 

121  122  123  124  125  126  127  128  129  130 

131  132  133  134  135  136  137  138  139  140  141) 


; ; bebedouro 
(142  143  144  145) 

; ; island 

;;(146  147  148  149  150  151  152  153  154  155  156) 
; jboxl 

(157  158  159  160) 

; ; box2 

(161  162  163  164) 


; ;ceilingl 

(165  166  167  168  169  170  171  172) 
(1  165) (2  166) (69  167) (70  168) 


; ; ceiling2 

(173  174  175  176  177  178  179  180  181  182) 

; ; ceiling3 

(183  184  185  186) 

(173  183) (174  184) (175  185) (176  186) 


; ; rodape 

(187  188  189  190) 

(191  192  193  194  195  196) 

(197  198  199  200) 

(201  202  203  204  205  206) 

(207  208  209  210  211  212) 

(213  214  215  216) 

(217  218  219  220  221  222) 

(223  224  225  226) 

(227  228  229  230) 

(231  232  233  234) 

(235  236  237  238) 

(239  240  241  242  243  244) 

(245  246  247  248  249  250  251  252  253  254) 

(255  256  257  258) 

(259  260  261  262) 

(263  264  265  266  267  268  269  270) 

(271  272  273  274  275  276) 
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(277  278  279  280) 

(281  282  283  284) 

(285  286  287  288) 

(289  290  291  292  293  294  295  296  297  298  299  300) 
(301  302  303  304) 

(305  306  307  308) 

(309  310  311  312) 

(313  314  315  316) 

(317  318  319  320  321  322  323  324) 

(325  326  327  328  329  330  331  332) 

(333  334  335  336  337  338  339  340) 

(341  342  343  344  345  346  347  348) 

(349  350  351  352) 

(353  354  355  356) 

(357  358  359  360) 

(361  362  363  364) 

(365  366  367  368) 

(369  370  371  372) 

(373  374  375  376) 

(377  378  379  380) 

; ; doors 

(381  382  383  384) 

(385  386) 

(387  388  389  390  391  392) 

(393  394  395  396) 

(397  398  399  400  401  402) 

(403  404  405  406) 

(407  408  409  410) 

(411  412) 

(413  414  415  416  417  418) 

(419  420  421  422) 

(423  424  425  426  427  428) 

(429  430  431  432) 

(433  434  435  436  437  438) 

(439  440  441  442) 
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(443 

444 

445 

446  447 

448) 

(449 

450 

451 

452) 

(453 

454 

455 

456  457 

458) 

(459 

460 

461 

462) 

(463 

464 

465 

466) 

(467 

468) 

(469 

470 

471 

472  473 

474) 

(475 

476 

477 

478) 

(479 

480 

481 

482  483 

484) 

(485 

486 

487 

488) 

(489 

490 

491 

492) 

(493 

494 

495 

496  497 

498) 

(499 

500 

501 

502) 

(503 

504 

505 

506  507 

508) 

(509 

510 

511 

512) 

(513 

514 

515 

516  517 

518) 

(519 

520 

521 

522) 

(523 

524 

525 

526  527 

528) 

(529 

530 

531 

532) 

(533 

534 

535 

536  537 

538) 

(539 

540 

541 

542) 

(543 

544 

545 

546  547 

548) 

(549 

550 

551 

552) 

(553 

554 

555 

556  557 

558) 

(559 

560 

561 

562) 

(563 

564 

565 

566) 

(567 

568 

569 

570) 
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(571  572  573  574  575  576) 
(577  578  579  580) 


(581  582  583  584  585  586) 

(587  588  589  590) 

(591  592  593  594  595  596) 

(597  598  599  600) 

(601  602  603  604  605  606) 

(607  608  609  610) 

(601  602  603  604  605  606) 

(607  608  609  610) 

(611  612  613  614  615  616) 

(617  618  619  620) 

(621  622  623  624  625  626) 

(627  628  629  630) 

(631  632  633  634  635  636) 

(637  638  639  640) 

(632  638)  (633  639) 

(641  642  643  644  645  646) 

(647  648  649  650) 

(642  648)  (643  649) 

(651  652) 

; ; ceiling 

(653  654  655  656  657  658  659  660  661  662  663  664) 

(665  666  667  668  669  670  671  672) 

(673  674  675  676  677  678  679  680  681  682  683  684) 

(685  686  687  688  689  690  691  692  693  694  695  696  697  698) 

(699  700  701  702  703  704  705  706  707  708  709  710) 
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(711  712  713  714  715  716  717  718) 

(719  720  721  722)  (723  724  725  726)  (720  724)  (721  725) 

(727  728  729  730)  (731  732  733  734)  (728  732)  (729  733) 

(735  736  737  738)  (739  740  741  742)  (736  740)  (737  741) 

(743  744  745  746)  (747  748  749  750)  (744  748)  (745  749) 

(751  752  753  754)  (755  756  757  758)  (752  756)  (753  757) 

(759  760  761  762)  (763  764  765  766)  (760  764)  (761  765) 

(767  768  769  770) 

(771  772  773  774) 

(775  776  777  778) 

(779  780  781  782) 

(783  784  785  786) 

(787  788  789  790  791  792  793  794  795  796  797  798) 

(787  799) (788  800) (789  801) (790  802) (791  803) (792  804) 
(793  805) (794  806) (795  807) (796  808) (797  809) (798  810) 

(811  812  813  814  815  816  817  818  819  820) 

(821  822  823  824  825  826  827  828  829  830) 

(831  832  833  834) 

(835  836  837  838)  (832  836) (833  837) 

(839  840  841  842) 

(843  844  845  846)  (841  845) (842  846) 

(847  848  849  850  851  852  853  854  855  856  857  858) 

))) 
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APPENDIX  H.  C  CODE  FOR  FINDING  THE 
VISIBLE  VERTICAL  EDGES 
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FILENAME:  main.c 

PURPOSE:  Main  function  for  finding  the  visible  vertical  edges 
given  a  2D  map 

AUTHOR:  Jader  Gomes  da  Silva  Filho 
DATE:  04/14/97 

#include  "path.h" 

#include  "display. h" 

#include  <stdio.h> 

#include  "utilities .h" 


#define  Tread  =  "r"; 

#def ine  Twrite  =  "w" ; 

int 

mainO 

-C 

Display_list  *list; 
int  i; 
long  wid; 

Polygon  *current_poly,  *pl,  *p2,  =t!p3,  *p4; 
Node_list  *s_list; 

Vertex  *goal,  *start,  *vl; 

Vertex_pair  *vp; 

World  *w; 

char  *infilenamel  =  "floor2.dat"; 

/*char  *infilenamel  =  "positive.dat" ;*/ 

char  *infilename2  =  "island.dat"; 

char  *infilename3  =  "boxl.dat"; 

char  *infilename4  =  "box2.dat"; 

char  *outfilename  =  "output"; 

char  *outf ilenamel  =  "outtest"; 

char  *type; 

CONFIGURATION  q; 
int  valid; 

FILE  *infile; 

FILE  *outfile; 

Stack  *vis_stack; 

Point  camera_pos; 


double  dummy; 


#ifdef  IRIS 

/*  debugging  flag  ♦/ 
f  oregroundO  ; 

#endif 

q.point.x  =  0.0; 
q. point. y  =  0.0; 
q. theta  =  0.0; 
q. kappa  =  0.0; 

OpenFileC&outfile,  outfilename, "w" ,  ""); 

/*outfile  =  fopen(outfilename,"w") ;*/ 

/*  mahe  a  world  */ 
w  =  create_world() ; 

/*  make  a  polygon  */ 
pi  =  create_polygon() ; 

/*  add  floor  vertices  */ 

OpenFileC&infile,  infilenamel,"r",  ""); 

/*infile  =  fopen(infilenamel, "r") ;*/ 

while  ( !feof (infile))  { 

valid  =  fscanf (infile, ""/.If  °/(lf\n",  &q. point. x,  &q. point. y); 
add_vertex_to_polygon(q. point .X,  q. point. y,  pi); 
PrintFile(outf ile,  q) ; 

/*printf  ("/(If  '/(If  \n"  ,  q.point.x,  q. point. y); 
fprintf  (out file,""/, If  "/,lf\n",  q.point.x,  q. point. y)  ;*/ 

} 

PrintFile (outf ile ,  pl->f irst_vertex->point) ; 
f close (infile) ; 
fprintf  (outf ile, "\n") ; 

/*  attach  polygon  to  world  ♦/ 
add_polygon_to_world (pi ,  w) ; 

/*  make  another  polygon  */ 
p2  =  create_polygon() ; 
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OpenFileC&infile,  iiifilename2, "r" , 

/♦infile  =  fopen(infilename2, "r") ;*/ 

while  (!feof (infile))  { 

valid  =  fscanf (inf ile, "'/.If  %lf\n",  &q.point.x,  feq.point.y); 
add_vertex_to_polygon(q. point .X,  q. point. y,  p2) ; 
PrintFile(outfile,  q) ; 

/*printf  ("’/olf  */.lf\n",  q. point. x,  q. point. y); 

fprintf  (outfile, "%lf  y,lf\n",  q. point. x,  q. point. y)  ;*/ 

} 

PrintFile(outf ile,  p2->first_vertex->point) ; 
fclose (infile) ; 
fprintf  (outfile, "\n") ; 
add_polygon_to_world(p2,  w) ; 

/*  create  amother  polygon  */ 
p3  =  create.polygonO ; 

OpenFile(&infile,  inf ilenameS, "r" ,  ""); 

/♦infile  =  fopen(inf ilenameS, "r") ; */ 

while  ( !feof  (infile)) 

valid  =  fscainf  (inf  ile,  "*/.lf  7,lf  \n"  ,  &q.  point,  x,  feq.point.y); 
add_vertex_to_polygon(q.point .X,  q. point. y,  p3) ; 

PrintFile (outfile,  q) ; 

/*printf  ("‘/.If  7,lf\n",  q. point. x,  q. point. y); 
fprintf  (outfile,  "*/.lf  ‘/.lf\n",  q. point. x,  q. point  .y)  ;*/ 

y 

PrintFile (outfile,  p3->f irst_vertex->point) ; 
fclose (inf ile) ; 
fprintf  (outfile , "\n") ; 
add_polygon_to_world(p3,  w) ; 

/*  and  another  */ 
p4  =  create_polygon() ; 

OpenFile(&infile,  inf ilencune4, "r" ,  ""): 

/*infile  =  fopen(inf ilename4, "r") ;*/ 

while  ( !feof (infile))  { 

valid  =  fscanf  (inf  ile,  "‘/.If  */,lf  \n"  ,  &q. point. x,  feq.point.y); 
add_vertex_to_polygon(q.point .X,  q. point. y,  p4) ; 
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PrintFile(outfile,  q) ; 

/♦printf  ("y,lf  %lf\n",  q. point. x,  q. point. y); 
fprintf  (outf ile, "%lf  ’/.lf\n",  q. point. x,  q. point .y)  ;*/ 

} 

PrintFileCoutfile,  p4->f irst_vertex->point) ; 
f close(inf ile) ; 

add_polygon_to_world(p4,  w) ; 

/*  create  isolated  vertex  for  start  eind  goal  */ 
goal  =  create_isolated_ vertex (5.0,  5.0); 
start  =  create_isolated_vertex(95.0,  95.0); 

#ifdef  IRIS 

/*  initialize  the  display  list  */ 
list  =  create_display_list() ; 
add_world_to_display_list (w ,  list) ; 
add_start_to_display_list (start,  list) ; 
add_goal_to_display_list(goal,  list) ; 

/*  ok  lets  see  it,  init  the  screen  and  show  the  display  list  */ 
wid  =  open_di splay .window 0 ; 

#endif 

/*  do  the  dijkstra  search  and  show  it  progressively  on  the  screen  */ 
s.list  =  dijkstra_search(start ,  goal,  w,  A.STAR,  wid,  list); 

#ifdef  IRIS 

/*  display  the  final  path  */ 
show_display_list (list ,  wid) ; 
display_best_path(s_list,  wid); 
swapbuffersO  ; 

while (1) ; 

#endif 

f close(outf ile) ; 

Get_Cam_Pos(&camera_pos) ; 

vis.stack  =  Find_Visibility(pl,camera_pos) ; 

OpenFile(&outfile,  outf ilenamel , "w" ,  ""); 
q.  point  =  camera.pos; 
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PrintFileCoutf ile ,  q) ; 
while  (vis_stack  !=  NULL) 

■C 

pop (&vis_stack , &q . point , fedummy ) ; 
PrintFileCoutf ile,  q)  ; 

} 

fcloseCoutf ile) ; 
return  0; 
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FILENAME:  utilities. c 

PURPOSE:  utility  programs  for  spatial  reasoning  library 
CONTAINS:  order () 
tcingentO 
is.tangent 0 
common.tcingent  ( ) 
switch_mode() 
segment_crossing_test () 
linearize  0 
orientationO 
normalize  0 
areaO 
fatal  0 

AUTHOR:  C.P.  Lombardo 
DATE:  01/22/91 

CHANGES:  Jader  Gomes  da  Silva  Filho 

LAST  UPDATE:  04/14/97 

*******************************************************************!):**********/ 

#include  "spatial. h" 

#include  "utilities .h" 

#include  <stdio.h> 


y*****************************************************:|<:)::t;*:t:Hc******************* 

FUNCTION:  order (pi,  p2,  p3) 

PARAMETERS:  Point  pi  the  first  point 
Point  p2  the  second  point 
Point  p3  the  third  point 

PURPOSE:  determine  the  order  (i.e.  CW  or  CCW)  of  three  points 

RETURNS:  int  CW  if  clockwise 

CCW  if  counterclockwise 
CALLED  BY:  tangent () 

is.taugentO 
c  ommon_t  angent ( ) 
segment_crossing_test () 

vertex_pair_poly_crossing_test ()  <path . c> 
segment_splitting_test()  <path.c> 

ANYBODY 
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CALLS:  NONE 

COMMENTS:  can  also  be  done  with  atcin2()  call 

♦  :tc****  +  5jc**:f::i«**3jc:+:**************  ******  **♦***♦***********************♦***********/ 

int  order (pi,  p2,  p3) 

Point  pi ; 

Point  p2; 

Point  p3; 

{ 

double  area; 

/*  calculate  the  area  of  the  triangle  */ 
area  =  0.5  *  ((p2.x  -  pl.x)  *  (p3.y  -  pl.y)  - 
(p3.x  -  pl.x)  ♦  (p2.y  -  pl.y)); 

if  (area  >  0.0) 
return (CCW) ; 

else  if  (area  <  0.0) 
return(CW) ; 

else 

return (0) ; 

} 

/  +  :t:****5^**************************:t:**:jc******:jc***********:|c**:|c**:|c*s}c**5j:*:t:*:|:i|c5f;:t::f;:|c:f:* 

FUNCTION:  tangent (v,  poly,  mode) 

PARAMETERS:  Vertex  *v  a  vertex  (i.e.  point)  outside  of  polygon  poly 
Polygon  *poly  the  polygon 
int  mode  the  mode  -  either  CCW  or  CW 
PURPOSE:  determine  tangents  from  a  point  to  a  polygon 

RETURNS :  Vertex  * 

CALLED  BY:  init_node_costs ()  <path.c> 

update_node_costs()  <path.c> 

ANYBODY 

CALLS:  is_tangent() 

order 0 

COMMENTS:  currently  convex  polygons  only 

0(n)  search  for  the  right  vertex 

*********************************************$)c****:4c**********^:|c**^:f;*%9)e^*****:f;/ 

Vertex  *tangent(v,  poly,  mode) 

Vertex  *v; 
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Polygon  *poly; 
int  mode; 

{ 

Vertex 

♦current .vertex,  /*  the  current  vertex  */ 

♦next .vertex,  /♦  the  next  vertex  after  current .vertex  ♦/ 
♦previous.vertex;  /♦  the  vertex  before  current.vertex  ♦/ 

/♦  get  the  first  vertex  ♦/ 
current.vertex  =  poly->f irst.vertex; 

while (TRUE)  { 

/♦  is  this  the  right  vertex  ♦/ 
if (is_tangent(v->point ,  current.vertex,  mode)) 
breah; 

/♦  now  based  on  the  mode  move  the  proper  way  around  the  poly 
♦  go  right  for  CCW  go  left  for  CW 
♦/ 

if (mode  ==  CCW)  { 

if (order (v->point ,  current .vertex->point , 

current .vertex->next->po int)  >=  0) 
current.vertex  =  current .vertex- >previous ; 
else 

current.vertex  =  current .vertex->next ; 

} 

else  { 

if (order (v->point ,  current .vertex->point , 

current .vertex->next->point)  >=  0) 
current.vertex  =  current .vertex->next ; 
else 

current.vertex  =  current .vertex->previous ; 

} 

} 

return (current.vertex) ; 

} 

FUNCTION:  is.tangent(pt ,  v,  mode) 

PARAMETERS:  Point  pt  the  point  away  from  the  polygon 
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Vertex  *v  the  vertex  on  the  polygon  to  test 
int  mode  the  mode  of  the  tangent  sought  -  CCW  or  CW 

PURPOSE:  determine  if  pt  and  v  make  a  tangent  of  the  right  mode 

RETURNS:  int  :  1  -  yes  it  is  the  right  teingent 

0  -  not  it  is  not  the  right  tangent 
CALLED  BY:  tangent () 

common_tangent () 

ANYBODY 

CALLS:  order () 

COMMENTS:  currently  convex  polygons  only 

int  is.tangent (pt ,  v,  mode) 

Point  pt; 

Vertex  *v; 
int  mode; 

{ 

switch  (mode)  { 

case  CCW:  /*  the  +  teingent  */ 

if (order (pt,  v->point,  v->next->point)  >=  0  && 
order (pt,  v->point,  v->previous->point)  >=  0) 
return (1) ; 

break ; 

case  CW:  /*  the  -  tangent  */ 

if (order (pt,  v->point,  v->next->point)  <=  0  && 
order (pt,  v->point,  v->previous->point)  <=  0) 
return (1) ; 


} 

/*  other  wise  it  is  not  the  right  tangent  */ 
return (0) ; 

} 

/5j:***Hc*********  ********************************************************  ******* 

FUNCTION:  c ommon_ tangent (pi ,  p2,  model,  mode2) 

PARAMETERS:  Polygon  *pl  the  first  polygon 

Polygon  *p2  the  seconde  polygon 
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int  model  the  mode  of  the  tangent  for  pi  -  CCW  or  CW 
int  mode2  the  mode  for  p2  -  either  CCW  or  CW 
PURPOSE:  determine  common  tangents  for  two  polygons 

RETURNS :  Vertex_pair  * 

CALLED  BY:  update_node_costs()  <path.c> 

ANYBODY 

CALLS :  i s  _ t angent ( ) 

order 0 
switch_mode() 

COMMENTS:  currently  convex  polygons  only 

***:f:*5f::fc*5|c****?f:Hc**  ******************************************************  ******/ 

Vertex.pair  *common_t angent (pi,  p2,  model,  mode2) 

Polygon  *pl; 

Polygon  *p2; 
int  model; 
int  mode2; 

■C 

int 

pl_flag  =  0,  /*  flag  denoting  a  current  tangent  with  pi  */ 
p2_flag  =  0;  /*  same  for  p2  */ 

Vertex.pair 

*teuigent_line;  /*  the  resultant  tangent  line  */ 

Vertex 

*vl,  /*  the  current  vertex  for  pi  */ 

*v2;  /*  the  current  vertex  for  p2  */ 

/*  get  the  first  vertices  */ 
vl  =  pl->first .vertex; 
v2  =  p2->first .vertex; 

while (pl.f lag  ==  0  I i  p2_flag  ==  0)  { 

/*  check  the  polyl  tangent  using  the  point  from  poly2  */ 
if (is.tangent(vl->point ,  v2,  mode2)) 
p2_flag  =  1; 

else  { 

p2.flag  =  0; 

/*  move  v2  accordingly  */ 
if(mode2  ==  CCW)  { 
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if  (order  (vl->poiiit,  v2->point,  v2->next->point)  >=  0) 
v2  =  v2->previous ; 
else 

v2  =  v2->next; 

} 

else  { 

if (order (vl->point,  v2->point,  v2->next->point)  >=  0) 
v2  =  v2->next ; 
else 

v2  =  v2->previous ; 

} 

} 

/*  now  check  poly2  -  note  that  the  mode  is  switched:  CW  to  CCW,  CCW  to  CW  ♦/ 
if (is_tangent(v2->point,  vl,  switch_mode (model))) 
pl.flag  =1; 

else  { 

pl.flag  =  0; 

/*  move  vl  accordingly  */ 
if (switch_mode (model)  ==  CCW)  { 
if (order (v2->point,  vl->point,  vl->next->point)  >=  0) 
vl  =  vl->previous ; 
else 

vl  =  vl->next; 

} 

else  -[ 

if (order (v2->point,  vl->point,  vl->next->point)  >=  0) 
vl  =  vl->next; 
else, 

vl  =  vl->previous ; 

} 

} 

} 

/*  allocate  space  for  the  vertex  pair  */ 

if ((tangent_line  =  (Vertex_pair  *)malloc(sizeof (Vertex_pair)))  ==  NULL)  { 
fatal ( "common.tangent :  malloc\n") ; 
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exit (FAILURE) ; 


} 

tcLngent_line->vl  =  vl; 
tangent_line->v2  =  v2; 

return (tajigent_line) ; 

} 

FUNCTION:  switch_mode(mode) 

PARAMETERS:  int  mode  either  CCW  or  CW 
PURPOSE:  return  the  opposite  mode 

RETURNS :  int 

CALLED  BY:  common_tangent () 

ANYBODY 

CALLS:  NONE 

int  switch_mode(mode) 
int  mode; 

■C 

if (mode  ==  CCW) 
return (CW) ; 
else 

return (CCW) ; 

} 

FUNCTION:  segment_crossing_test(ll,  12) 

PARAMETERS:  Line_segment  *11  the  first  line  segment 

Line_segment  *12  the  second  line  segment 
PURPOSE:  determine  if  two  line  segments  cross,  touch  or  do  not  cross  or 

touch 

RETURNS:  int:  1  -  the  line  segments  cross 

0  -  the  line  segments  touch  only  but  do  not  cross 
-1  -  the  line  segments  do  not  touch  at  all 
CALLED  BY:  vertex_pair_poly_crossing_test ()  <path.c> 

ANYBODY 
CALLS:  order 0 

linearize  0 

COMMENTS : 

int  segment_crossing_test(ll,  12) 

Line_segment  *11; 
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Line_segment  *12; 

{ 

double  fl,  f2,  f3,  f4;  /*  linearization  values  for  the  4  points  */ 
int  ol,  o2,  o3,  o4;  /*  temp  variables  for  keeping  the  orders  */ 

/*  set  up  order  calculations  */ 
ol  =  order(ll->pl ,  ll->p2,  12->pl) ; 
o2  =  order(ll->pl ,  ll->p2,  12->p2) ; 
o3  =  order (12->pl ,  12->p2,  ll->pl) ; 
o4  =  order(12->pl ,  12->p2,  ll->p2) ; 

/*  test  for  crossing  first  -  only  one  case  */ 
if(ol  !=  0  &&  o2  !=  0  &&  ol  !=  o2  && 

o3  !=  0  &&  o4  !=  0  &&  o3  !=  o4) 

return (1) ; 

/*  now  test  for  touching  -  three  cases  here  one  more  below  */ 
if(((ol  ==  0  II  o2  ==  0)  &&  (o3  !=  0  &&  o4  !=  0  &&  o3  !=  o4))  I  I 

((o3  ==  0  II  o4  ==  0)  &&  (ol  !=  0  &&  o2  !=  0  &&  ol  !=  o2))  | | 

(((ol  ==  0  II  o2  ==  0)  &&  ol  !=  o2)  &&  ((o3  ==  0  | |  o4  ==  0)  &&  o3  !=  o4))) 
return (0) ; 

/*  now  test  for  colinear  case  */ 

if(ol  ==  0  &&  o2  ==  0  &&  o3  ==  0  &&  o4  ==  0)  -C 


/*  linearize  on  the  first  segment  */ 
fl  =  linearize (ll->pl,  11); 
f2  =  linearize (ll->p2,  11); 
f3  =  linearize (12->pl,  11); 
f4  =  linearize (12->p2,  11); 

/*  case:  non  overlapping  colinear  segments  */ 
if((f3  <  0.0  &&  f4  <  0.0)  II  (f3  >  f2  &&  f4  >  f2)) 
return (-1) ; 

/*  case:  overlapping  segments  */ 
if ((f3  <=  f2  &&  f3  >=  fl)  I  I  (f4  <=  f2  &&  f4  >=  fl)) 
return (0); 


/*  only  thing  left  is  no  touchy  no  crossy  */ 
return (-1) ; 
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FUNCTION:  linearize (pt,  line) 

PARAMETERS:  Point  pt  point  to  check  the  linearized  position 
on  line  segment  line 

Line_segment  *line  the  line  segment  to  use  as  reference 
PURPOSE:  determine  the  linearize  position  of  pt  on  line.  0  if  pt 

corresponds  to  the  first  point  in  line,  and  some  positive 
constant  if  pt  corresponds  to  the  2nd  point  in  the  segment 
RETURNS:  double 

CALLED  BY:  segment_crossing_test() 

CALLS :  NONE 

COMMENTS:  here  the  return  value  is  given  by: 

f(x,  y)  =  (x  -  xl)(x2  -  xl)  +  (y  -  yl)(y2  -  yl) 

double  linearize (pt,  line) 

Point  pt; 

Line_segment  *line; 

{ 

double 

fl,  /*  the  (x  -  xl) (x2  -  xl)  part  */ 

f2;  /*  the  (y  -  yl) (y2  -  yl)  part  */ 

fl  =  (pt.x  -  line->pl.x)  *  (line->p2.x  -  line->pl.x); 

f2  =  (pt.y  -  line->pl.y)  *  (line->p2.y  -  line->pl.y); 

returnCf 1  +  f2) ; 

} 

/:tJ***  *******♦*♦*♦*****♦****♦♦*♦♦♦♦♦*♦♦*****♦*♦**♦♦**♦***♦*****♦♦♦*♦*♦*♦♦**♦*♦* 

FUNCTION:  orientation (pi ,  p2) 

PARAMETERS:  Point  *pl  the  first  point  of  the  line  segment 
Point  *p2  the  second  point  of  the  line  segment 
PURPOSE:  determine  the  angle  of  the  line  segment  drawn  from  pi  to  p2  with 

respect  to  the  x  axis.  This  angle  by  convention  will  be  between 
-pi  and  pi. 

RETURNS:  double:  the  angle  in  radians 

CALLED  BY:  ANYBODY 
CALLS ;  NONE 

double  orientation (pi,  p2) 
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Point  ♦pi; 

Point  ♦p2; 

{ 

return (atan2(p2->y  -  pl->y,  p2->x  -  pl->x)); 

} 

FUNCTION:  normalize  (eingle) 

PARAMETERS:  double  angle  the  angle  to  normalize 

PURPOSE:  normalize  the  input  eingle  to  the  range  -pi  to  pi. 

RETURNS:  double:  the  normalized  angle  in  radicuis 

CALLED  BY:  ANYBODY 
CALLS:  NONE 

double  normalize (angle) 
double  cingle; 

{ 

/♦  test  for  greater  than  PI  ♦/ 
while (angle  >  PI) 
cingle  -=  2  ♦  PI; 

while  (cingle  <  -PI) 
angle  +=  2  ♦  PI; 

return (angle) ; 

} 

FUNCTION:  area(vO,  vl,  v2) 

PARAMETERS:  Vertex  *v0,  *vl,  ♦v2  the  triangle  vertices 
PURPOSE:  calculate  the  area  of  the  triangle  defined  by  the  3  line 

segments:  vO  -  vl,  vl  -  v2,  and  v2  -  vO 
RETURNS :  double 

CALLED  BY:  update_node_costs()  <path.c> 
get_new_area()  <path.c> 

ANYBODY 

CALLS:  NONE 

COMMENTS:  area  given  by  A  =  0.5[(xly2-ylx2)-(x0y2-y0x2)+(x0yl-y0xl)] 

this  is  similar  to  orderO 

double  area(vO,  vl,  v2) 

Vertex  *v0; 

Vertex  *vl; 
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Vertex  *v2; 

double  al,  a2,  a3;  /*  the  three  parts  of  the  area  */ 


al  =  (vl->point 
a2  =  (vO->point 
a3  =  (vO->point 


X  *  v2->point.y) 
X  *  v2->point.y) 
X  *  vl->point.y) 


-  (vl->point.y  * 

-  (vO->point.y  * 

-  (vO->point.y  * 


v2->point .x) ; 
v2->point .x) ; 
vl->point .x) ; 


return(0.5  *  (al  -  a2  +  a3)); 

> 

/  ♦*!(=*******!*!*♦*****♦)*:**!(:**♦*****:*:*******!*!**♦♦**  St!***  t*******:*:**********  ******** 

FUNCTION:  fatal () 

PARAMETERS:  char  ♦message 

PURPOSE:  on  fatal  error  print  message  then  print  system  message  then  exit 

CALLED  BY:  create_world()  <world.c> 

Great e.polygon  0  <world . c> 
add_vert ex_to_polygon ( )  <world . c> 
create_isolated_vertex  0  <world . c> 
create_vertex_pair()  <world.c> 
create_line_segment ()  <world . c> 
create_node_list()  <path.c> 
create_start_or_goal_node  0  <path . c> 
add_node_to_node_list()  <path.c> 
add_world_to_node_list  0  <path. c> 
create_display_list ()  <display . c> 
add_vertex_pair_to_display_list ()  <display . c> 

ANYBODY 

CALLS:  NONE 

******♦♦♦♦*♦♦*♦*♦***♦***♦*♦♦*♦**♦♦♦**♦*♦****♦♦***♦♦♦♦******♦***♦♦♦****♦♦♦**♦* / 


void  fatal (message) 
char  *message; 

■C 

fprintf (stderr,  "Fatal  error  occured:  "); 
perror(message) ; 
exit (FAILURE); 

} 


/**5(c**:t:*********************;t:!(c^c  +  !(c!(::(!*j(:**4!**:t::|c*:(::(::(!*:(c*:J::(c:(c^***:(c^:(c**:(c:t::(c:|c**/ 

/*  FUNCTION:  OpenFileO  */ 
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/*  -  */ 

/*  Purpose:  This  function  opens  the  output  file.  */ 


void  OpenFileCfileO,  name,  type,  title) 

FILE  **fileO; 

char  *name; 

char  *type; 

char  *title; 

■C 

*fileO  =  f open (name, type) ; 
return ; 


/*  FUNCTION:  PrintFileO  */ 

/*  -  */ 

/*  Purpose:  This  function  print  the  result  to  the  file.  */ 


void  PrintFileCfilel,  q) 

FILE  *filel; 

CONFIGURATION  q; 

-[ 

fprintf  (filel,"y,f  y,f\n",  q. point. x,  q. point. y); 
return ; 

} 


void  push (temp_stack,pos, angle) 

Point  pos; 
double  angle; 

Stack  **temp_stack; 

■C 

Stack  *new_stack_node; 

if ( (new_stack_node  =  (Stack  *)malloc(sizeof (Stack)))  ==  NULL)  { 
fatalC'push:  mallocXn"); 
exit (FAILURE) ; 

} 


246 


new_stack_node->point  =  pos; 
new_stack_node->2uagle  =  angle; 

if  (*temp_stack  ==  NULL) 

{ 

printf ("including  first\n") ; 

new_stack_node->previous  =  new_stack_node ; 
new_stack_node->next  =  new_stack_node ; 

} 

else 

{ 

new_stack_node->previous  =  (*temp_stack)->previous; 
(*temp_stack)->previous->next  =  new_stack_node ; 
(*temp_stack)->previous  =  new_stack_node ; 
new_stack_node->next  =  *temp_stack; 

} 

printf  ("Pushing  “/.If  "/,lf\n",  pos .x,pos  .y) ; 

*temp_stack  =  new_stack_node; 

return ; 

> 

void  pop(temp_stack,temp_point,teinp_angle) 

Stack  **temp_stack; 

Point  ♦temp .point ; 
double  *temp_auigle ; 

■C 

Stack  *temp_stk; 
temp.stk  =  NULL; 

if  (*temp_stack  ==  NULL)  {return;} 

if  ((♦temp_stack)->previous  !=  (♦temp_stack)->previous->next) 

{ 

temp.stk  =  (♦temp_stack)->next ; 

(♦temp_stack)->next->previous  =  (♦temp_stack)->previous; 
(*temp_stack)->previous->next  =  (*temp_stack)->next ; 

♦temp.angle  =  (♦temp_stack)->angle; 
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*temp_point  =  (*temp_stack)->point ; 

printf  ("Popping  ’/.If  7.1f \n" ,  temp_point->x,temp_point->y) ; 
free(*temp_stack) ; 

*temp_stack  =  temp.stk; 

} 

else  { 

*temp_angle  =  (*temp_stack)->angle ; 

♦temp.point  =  (*temp_stack)->point ; 

printf  ("Popping  LASTTTT  ‘/.If  y.lf\n",  temp_point->x,teinp_point->y) ; 
free(*temp_stack) ; 

*temp_stack  =  temp_stk;} 
return ; 

} 

/  ****5(t*****J(!**********>(t>|(=|e*********:ttJ(ej(t*******!)t*!(c***>|c!t!*!t!****J|<>(!;|!*>|t  :(=*♦*:*:*♦♦**!(!**♦*/ 

Stack  *Find_Visibility(pl ,pos) 

Polygon  *pl; 

Point  pos ; 


■C 

Vertex  *f irst_vertex , *current .vertex ; 

double  current.angle , last.angle , diff .angle , curr.dist , prev.dist , ang.max.lef t , ang. 
Stack  *stack.pointer ; 

Point  prevl,prev2,  pop.point; 

int  type,  coiint,  repeat,  type.curve.left ,  type.curve.right ,  second.pass,  type.cu 


first.vertex  =  current .vertex  =  pl->first .vertex; 

stack.pointer  =  NULL; 

count  =  0; 

repeat  =  FALSE; 

type  =  0; 

second.pass  =  FALSE; 

type.curve.left  =  type.curve.right  =  type.curve.down  =  FALSE; 

last.angle  =  atan2 (current _vertex->point .y-pos .y, 
current.vertex->point .x-pos .x) ; 
do  * 

■C 
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current_angle  =  atan2 (current _vertex->point .y-pos .y, 
current _vertex->point .x-pos .x) ; 

diff_angle  =  normalize (current_angle  -  last_angle) ; 

if  (diff .angle  <0.0  I  I  stack.po inter  ==  NULL) 


push (&st  ack.po int  er , current _vertex->po int , current .angle ) ; 
count ++ ; 

last.angle  =  current.angle; 


else 

■C 

if  ( St ack.po inter  ==  NULL) 

{ 

printfC'I'm  leavingXn"); 
return  stack.po inter; 

} 

else 

prevl  =  stack_pointer->point ; 
prev2  =  stack_pointer->next->point ; 

typel  =  order (prev2, prevl, current _vertex->point) ; 


type  =  order (current _vertex->previous->po int , 
current_vertex->point , current _vertex->next->po int) ; 

prev.dist  =  pow (prevl. y-pos. y, 2.0)  +  pow (prevl. x-pos. x, 2. 0) ; 
curr.dist  =  pow (current _vertex->point. y-pos. y, 2.0)  + 
pow (current _vertex->point . x-pos . x , 2 . 0) ; 

if  (curr.dist  <=  prev.dist  &&  type  ==  CCW  ) 

■C 

printf  ("Eliminating  CW  ‘/.If  ‘/.If  %lf  %lf\n", prevl. x, prevl. y, 
curr.dist ,prev_dist) ; 


249 


pop (&stack_pointer , &pop_point , &last_angle) ; 
printf  ("Popped  point  */,lf  pop.point.x, 

pop_point .y) ; 

if  (stack_pointer  !=  NULL) 

-C 

last_angle  =  stack_pointer->angle; 

} 

count — ; 
repeat  =  TRUE; 

} 

else 

-[ 


printf  ("Eliminating  CCW  '/,lf  '/,lf\n", 
current _vertex->point . x , 
current _vertex->point . y) ; 

} 

} 

> 

if  (repeat  ==  FALSE) 
current_vertex  =  current _vertex->next ; 
else 

repeat  =  FALSE; 

if  ( (current _vertex  ==  f irst_vertex)&&(second_pass  ==  FALSE)) 
■C 

second.pass  =  TRUE; 
first_vertex  =  current _vertex->next; 

current _vertex->point  =  stack_pointer->previous->point ; 
printf  ("last  '/,lf  ‘/.If  ‘hit  '/olf  °/olf\n",  current_vertex->point  .x, 
current _vertex->point . y, current .angle , last.angle , diff .angle) ; 


> 


}  while (current .vertex  !=  f irst.vertex) ; 


return  stack.pointer; 

} 


void  Get. Cam.Pos (Point  *pos) 


■C 


250 


printf  ("\nEnter  Camera’s  X  position  : ")  ;scanf  ("7,lf "  ,&pos->x)  ; 
printf ("\nEnter  Camera’s  Y  position  : ") ;scanf ("%lf " ,fepos->y) ; 
return ; 
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APPENDIX  I.  C  CODE  FOR  CONTROLLING 

“YAMABICO” 
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4:** **********************************************************  ************ 

Function  :  userO 
Purpose 

Parameters:  void 
Returns  :  void 

Comments  :  Kanayama  and  Jader  Filho  04/25/97 

#include  "user.h" 

#include  "seqcmd.h" 

#include  "math.h" 

void  userlOO; 
void  userllO  ; 
void  userl2(); 
void  userlSO; 
void  userl4() ; 
void  userl9(); 
void  user20(); 
void  user21(); 
void  user22() ; 
void  user23(); 
void  user24() ; 
void  user25(): 
void  user26(); 
void  userSOO; 
void  userlOO  0; 
void  userlOlO; 


int  OnTrack (CONFIGURATION  path) 

{ 

double  lambda  =  20.0; 
CONFIGURATION  robotl; 

double  kk; 
double  k,  kk2; 

LINE  pathElement; 

double  sigma  =  sigmaValueO  ; 

pathElement .config  =  path; 
kk  =  path. Kappa  ; 
kk2  =  kk  *  kk; 
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k  =  l.O/sigma  ; 
pathElement . a  =  3.0*k  ; 
pathElement . b  =  3.0*k*k  -  kk2  ; 
pathElement . c  =  k*k*k  -  3.0*k*kk2  ; 

robot  1  =  getRobotConf  igO  ; 

lambda  =  fabs (pathElement . a  *  robotl. Kappa) 

+  fabs (pathElement . b  * 

norm (robotl .Theta  -  pathElement .config. Theta)) 

+  fabs (pathElement. c  * 

(-(robotl .Posit .X  -  pathElement. config. Posit. X) 

*  sin(pathElement. config. Theta) 

+  (robotl .Posit .Y  -  pathElement .config. Posit. Y) 

*  cos (pathElement. config. Theta))) ; 

/*if ((int)lambda%2  ==  0) 
printf("\n)lf" .lambda)  ;*/ 

if  (lambda  >  0.0) 
return  FALSE; 
else{ 

/*  printf  ("\n*/,f  "  .Icimbda)  ;*/ 
return  TRUE;} 


void  userO 

■C 

int  selection; 


printf("\n  Continuous  Curvature  Motion  Control:  Version  4"); 


printf ("\n 
printf ("\n 
printf ("\n 
printf ("\n 
printf ("\n 

printf ("\n 
printf ("\n 
printf ("\n 
printf ("\n 
printf ("\n 
printf ("\n 


Enter 

10 

for 

Enter 

11 

for 

Enter 

12 

for 

Enter 

13 

for 

Enter 

19 

for 

Enter 

20 

for 

Enter 

21 

for 

Enter 

22 

for 

Enter 

23 

for 

Enter 

24 

for 

Enter 

25 

for 

Square") ;  /*  for  lines 

Star") ; 

Neg  Stcir") ; 

Maze"); 

Polygon  Tracking"); 

CCW  circle  100cm.");  /*  for  circles 

Tracking  a  circle  form  outside") ; 

Two  circles") ; 

Circle  Train"); 

Slalom") ; 

Obstacle  avoidance  #1"); 


*/ 
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printf("\n  Enter  26  for  Obstacle  avoidance  #2"); 


printf("\n  Enter  30  for  Track_Stop") 
printf("\n  Enter  100  for  Sonar  Range 
printf("\n  Enter  101  for  Random  Walk 
printf("\n\n  The  choice  is  :  ") ; 

selection  =  GetIntO; 
switch  (selection) 

case  10: 
userlOO ; 
break; 
case  11: 
userllO ; 
break; 
case  12: 
userl2() ; 
break; 
case  13: 
userl3() ; 
break; 
case  19: 
userl9() ; 
breeik; 
case  20: 
user20() ; 
break; 
case  21: 
user21() ; 
brecik; 
case  22: 
user22() ; 
break; 
case  23: 
user23(); 
break; 
case  24: 
user24() ; 
break; 
case  25: 
user25() ; 


/* 

others 

*/ 

Displaying") ; 

/♦ 

others 

*/ 

by  Sonar") ; 

/* 

others 

♦/ 
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break ; 
case  26: 
user26() ; 
break; 
case  30: 
userSOO; 
brecik; 
case  100: 
userlOOO  ; 
break ; 
case  101: 
userlOlO; 
breeik; 
default : 
break ; 

} 

} 

/  ***#;s|t  +  +  *s(:***s|t**:t!:)t***s(!*:(::(!s|t**:t!s|t:t::)t****:(c)(!****5(:*  +  ******:t!*  *♦!*:*  *********** 

Function  :  userlOlO 

Purpose  :  Making  random  walk  behavior,  which  turns  left  135  degrees 
Parameters :  void 
Returns  :  void 
Comments 

♦  ♦>l'***!|t**!|t****=(!**!|==t:Jt:*!|t****4:**!|'*********!|!*!|t!t:********:(:*5(:*:(t**!)c***!t:*****>|c:t:!)c:(:**:(c***/ 

void  userlOlO 

{ 

int  dist,  distL,  distR; 

CONFIGURATION  path,  left,  right,  current; 
double  sigma  =  6.0; 

path  =  defineConf ig(0.0,  0.0,  0.0,  0.0); 
left  =  defineConf ig(80.0,  0.0,+1.5*HPI,  0.0); 
right  =defineConf ig(80.0,  0.0,-1.5*HPI,  0.0); 

EnableSonar (SOOO) ; 

EnableSoneir(S030) ; 

EnableSonar (S330) ; 
setLinVelImm(20.0) ; 
setSigmalmm(sigma) ; 
setRobotConf iglmm(path) ; 
track (path) ; 
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while  (1) 

{ 

waitMS(200); 
dist  =  Sonar (SOOO); 
distR  =  Sonar(S030); 
distL  =  Sonar(S330); 
if  (dist  <  150  &&  dist  >  1) 

■C 

printf("\n  distcince=  */d  ",  dist); 
DisableSonar Interrupts  0 ; 
current  =  getRobotConf ig()  ; 
current . Kappa  =  0.0; 
if  (distL  >  distR) 
path  =  compose (fecurrent,  &left) ; 
else 

path  =  compose (fecurrent,  feright) ; 
track (path) ; 

printf("\n  turn  /(4.2f",  path . Theta*r2d)  ; 
waitSec(8) ; 

/*while(OnTrack(path)  ==  FALSE);*/ 
EnableSonar Interrupts  0 ; 

/♦  dist  =  Sonar(SOOO) ; 
waitMS(60) ; */ 

}else 

if  (distL  <  150  fefe  distL  >  1) 

printf("\n  distanceL=  Xd  ",  distL); 
DisableSonarInterruptsO ; 
current  =  getRobotConf ig() ; 
current . Kappa  =  0.0; 
path  =  compose (fecurrent ,  feright); 
track (path) ; 

printf("\n  turn  y.4.2f",  path.Theta*r2d) ; 
waitSec(8) ; 

/*  while (OnTrack (path)  ==  FALSE);*/ 
EnableSonar Interrupts  0  ; 

/*  distL  =  Soncir(S330) ; 

waitMS(60) ;*/ 

}else 

if  (distR  <  150  fefe  distR  >  1) 
printf("\n  distanceR=  ‘/.d  ",  distR); 
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DisableSonarInterruptsO  ; 
current  =  getRobotConfigO  ; 
current . Kappa  =  0.0; 
path  =  compose (fecurrent,  feleft) ; 
track (path) ; 

printf("\n  turn  */.4.2f",  path.Theta*r2d) ; 
waitSec(8) ; 

/*while(OnTrack(path)  ==  FALSE);*/ 
EnableSonaxInterruptsO ; 

/*  distR  =  Sonar (SOSO); 
waitMS(60);*/ 

} 

} 

DisableSonar(SOOO) ; 

DisableSonar(S030) ; 

DisableSonar(S330) ; 
return ; 


void 

user 10 (void)  /*  Square  */ 

■C 

CONFIGURATION  init,  line,  turn; 
double  size  =  100,  sigma  =  10; 
int  i; 

printf ("\nlnput  desired  size  (cm):  "); 
size  =  GetRealO; 

printf ("\nlnput  desired  smoothness  (cm):  ") ; 
sigma  =  GetRealO; 

/*  setSigmalmm(size) ; 
setSigmaImm(0 . 05*size) ; */ 
setSigmalmm(sigma) ; 

init  =  defineConfig(-0.5*size,  0.0,  0.0,  0.0); 
line  =  def ineConf ig(  0.0,  0.0,  0.0,  0.0); 
turn  =  def ineConf ig(  size,  0.0,  HPI,  0.0); 
setRobotConf iglmm(init) ; 
for  (i  =  0;  i  <=  4;  i++) 

track (line) ; 

line  =  compose  (feline,  fetum) ; 

} 

line  =  def ineConfig(  1.5*size,  0.0,  0.0,  0.0); 
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tracks (line) ; 
return ; 

} 

void 

userll(void) 

{ 


CONFIGURATION  init,  lineO,  linel; 
int  i; 

double  sigma,  linelength; 

printf ("\nlnput  desired  smoothness  (cm),  eg.  7:  ") ; 

/♦A  typical  value  for  sigma  is  7.0  */ 
sigma  =  GetRealO; 

setSigmalmm(sigma) ; 

printf ("\nlnput  desired  length  (cm),  eg.  300:  "); 

/♦  A  typical  value  for  linelength  is  300.0  */ 
linelength  =  GetRealO; 

init  =  def ineConfig(linelength/2,  0.0,  0.0,  0.0); 

lineO  =  def ineConf ig(0 . 0,  0.0,  0.0,  0.0); 

linel  =  def ineConfig (linelength,  0.0,  4.0+PI/5.0,  0.0); 

setRobotConf iglmm(init) ; 

for  (i=0;  i  <=  4;  i++) 

-C 

track (lineO) ; 

printf ("\n  lineO. x  =  7.f,  lineO. y  =  ‘/.f,  lineO. t  =  7.f,  lineO. k  =  '/.f",  lineO. I 
lineO  =  compose (felineO,  felinel); 

> 

tracks (init) ; 
return ; 


void 

userl2(void)/*  Neg_Star*/ 

{ 
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CONFIGURATION  init,  lineO,  linel; 
int  i; 

double  sigma,  linelength; 

printf ("\nlnput  desired  smoothness  (cm),  eg.  7:  ") ; 

/*  A  typical  value  for  sigma  is  7.0  */ 
sigma  =  GetRealO; 

setSigmalmm(sigma) ; 

printf ("\nlnput  desired  length  (cm),  eg.  300:  "); 

/*  A  typical  value  for  linelength  is  300.0  */ 
linelength  =  GetRealO; 

init  =  defineConfig(linelength/2,  0.0,  0.0,  0.0); 

lineO  =  defineConf ig(0.0,  0.0,  0.0,  0.0); 

linel  =  defineConfigdinelength,  0.0,  -4.0*PI/5.0,  0.0); 

setRobotConfiglmm(init) ; 

for  (i=0;  i  <=  4;  i++) 

■C 

track (lineO) ; 

printf("\n  lineO. x  =  ‘/.f,  lineO. y  =  ‘/,f,  lineO. t  =  */.f,  lineO. k  =  ‘/.f",  lineO. P( 
lineO  =  compose (ftlineO ,  ftlinel) ; 

} 

tracks (init) ; 
return ; 


void 

user 13 (void)  /*  Maze  */ 

CONFIGURATION  init,  lineO,  linel,  line2,  line3,  line4,  lineS,  line6,  line7; 
double  sigma; 

printf ("\nlnput  desired  smoothness  (cm):  ") ; 
sigma  =  GetRealO; 
setSigmalmm(sigma) ; 
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init  =  def ineConfig(0.0,  -50.0,  0.0,  0.0); 
lineO  =  defineConfig(0.0,  -50.0,  0.0,  0.0); 
linel  =  defineConfig(205.0,  -50.0,  HPI,  0.0); 
line2  =  def ineConfig(205.0,  306.0,  0.0,  0.0); 
lines  =  def ineConfig(399.0,  306.0,  -HPI,  0.0); 
line4  =  def ineConfig (399.0,  -50.0,  PI,  0.0); 
line5  =  def ineConf ig(205.0,  306.0,  PI,  0.0); 
line6  =  def ineConfig (-50.0,  306.0,  -HPI,  0.0); 
line?  =  def ineConf ig(  50.0,  -50.0,  0.0,  0.0); 

setRobotConf  iglmmdnit) ; 

track ( lineO ) ; 
track (linel) ; 
track (line2) ; 
track (lines) ; 
track (line4) ; 
track (linel) ; 
track (line5) ; 
track (line6) ; 
tracks (line?) ; 
return ; 

} 

void 

userl9(void)  /*  polygon  tracking  */ 

CONFIGURATION  init,  lineO,  linel,  line2; 
int  i; 

double  sigma; 

printf ("\nlnput  desired  smoothness  (cm):  "); 
sigma  =  GetRealO; 
setSigmaImm (sigma) ; 

init  =  lineO  =  def ineConf ig(0.0,  0.0,  0.0,  0.0); 
linel  =  def ineConfig (200.0,  0.0,  HPI,  0.0); 
line2  =  def ineConfig (200.0,  0.0,  0.0,  0.0); 
setRobotConf iglmm(init) ; 

for  (i=0;  i  <=  3;  i++) 
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{ 

track (lineO) ; 

lineO  =  compose (&lineO,  felinel) ; 

} 

tracks (line2) ; 
return ; 


void 

user20(void)  /*  CCW  circle  */ 

■C 

CONFIGURATION  init,  circleO; 
double  sigma; 

printf ("\nlnput  desired  smoothness  (cm):  "); 
sigma  =  GetRealO; 
setSigmalmm(sigma) ; 

init  =  defineConfigCO.O,  0.0,  0.0,  0.01); 
circleO  =  defineConf ig(-100 .0,  100.0,  -HPI,  0.01); 
setRobotConf iglmm(init) ; 
tracks (circleO) ; 

printf  ("\nVelocity  is  %f",  VelocityLinearO) ; 
return ; 

} 

void 

user21(void)  /*  CCW  circle  from  outside  */ 


CONFIGURATION  init,  circleO; 
double  sigma; 

printf ("\nlnput  desired  smoothness  (cm):  ") ; 
sigma  =  GetRealO; 

setSigmaImm( sigma) ; 

init  =  defineConf ig(0.0,  0.0,  0.0,  0.0); 
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circleO  =  defineConfig(0.0,  50.0,  0.0,  0.01); 
setRobotConf iglmmCinit) ; 
track (circleO) ; 

printf  ("\nVelocity  is  “/of",  VelocityLinearO) ; 


return; 

} 

void 

user22(void)  /*  Two  circles  */ 

-C 

CONFIGURATION  init,  circleO,  circlel; 
double  sigma,  radius; 

printf ("\nlnput  desired  smoothness  (cm):  ")  ; 
sigma  =  GetRealO; 
setSigmaImm (sigma) ; 

printf ("\nlnput  desired  radius  (cm):  "); 
radius  =  GetRealO; 

/*  circle  to  circle  */ 

init  =  def ineConf ig(-l . l*radius ,  radius,  0. 

circleO  =  defineConfig(-2.1*radius,  0.0,  HPI,  - 

circlel  =  defineConfig(  2.1*radius,  0.0,  HPI, 

setRobotConf iglmm( init) ; 

track (circleO) ; 

track(circlel) ; 

track (circleO) ; 

track(circlel) ; 

tracks (circleO) ; 

return; 


void 

user23(void)  /*  Circle  Train  */ 

{ 

CONFIGURATION  init,  circleO,  circlel,  next; 


0,  - 1 /radius ) ; 
1 . 0/radius) ; 

1 .0/radius) ; 
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double  radius; 
int  i; 

int  numcircles  =  1; 


printf ("\nlnput  radius  (cm) :  ")  ; 
radius  =  GetRealO; 
setSigmaImm(0 .4*radius) ; 

init  =  circleO  =  def ineConfigCO.O,  0.0,  0.0, 

circlel  =  def ineConf ig(  2.2*radius,  2.0*radius, 
next  =  defineConf ig(4.4*radius,  0.0,  0.0,  0.0 

setRobotConf  iglinra(init) ; 

for  (i=0;  i  <=  numcircles;  i++) 

{ 

track(circleO) ; 
track(circlel) ; 
if  (i  <  niimcircles) 

circleO  =  compose (fecircleO, fenext) ; 
circlel  =  compose (fecirclel, fenext) ; 

} 

} 

next. Posit. X  =  -next .Posit .X; 
for  (i=0;  i  <=  numcircles-1;  i++) 

circlel  =  compose (fecirclel, fenext) ; 
track(circleO) ; 
track(circlel) ; 

circleO  =  compose (&circleO,&next) ; 

> 

tracks (circleO) ; 
return ; 


void 

user24(void)  /*  Slalom  */ 

i 

CONFIGURATION  init,  circleO,  circlel,  next; 
double  radius; 


1 .0/radius) ; 

.0,  -1 .0/radius) ; 
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printf ("\nlnput  radius  (cm):  "); 
radius  =  GetRealO  ; 
setSigmaImm(0.4*radius) ; 

next  =  defineConf ig(4.4*radius ,  0.0,  0.0,  0.0); 

init  =  defineConfig (-radius,  radius,  -HPI,  1.0/radius); 

circleO  =  def ineConf ig(  0.0,  0.0,  0.0,  1.0/radius); 

circlel  =  defineConfig(  2.2*radius,  radius,  0.0,  -1.0/radius); 

track (circleO) ; 

track(circlel) ; 

circleO  =  compose (fecircleO,  fenext); 
circlel  =  compose (&circlel,  fenext) ; 
track (circleO) ; 
tracks (circlel) ; 
return ; 


void 

user25(void)  /*  Obstacle  avoidance  #1  */ 

CONFIGURATION  init,  line,  circle; 
double  size; 

printf ("\nlnput  radius  (cm):  "); 
size  =  GetRealO; 
setSigmaImm(0. 15*size) ; 

/ *setLinVelImm(20 . 0) ; */ 

init  =  defineConf ig(-2.0*size,  0.0,  0.0,  0.0); 

line  =  def ineConf ig(  2.0*size,  0.0,  0.0,  0.0); 

circle  =  def ineConf ig(  0.0,  -0.5*size,  0.0,  2.0/size); 

setRobotConf iglmm(init) ; 

track (line) ; 

track(circle) ; 

tracks (line) ; 

return ; 


void 
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user26(void)  /*  Obstacle  avoidance  #2  */ 

■C 

CONFIGURATION  init,  line,  circle; 
double  size; 

printf ("\nlnput  radius  (cm):  ") ; 
size  =  GetRealO; 
setSigmaImm(0. 15*size) ; 

/*setLinVelInffli(20 . 0) ; */ 

init  =  defineConfig(-2.5*size,  0.0,  0.0,  0.0); 

line  =  defineConf ig(  2.5*size,  0.0,  0.0,  0.0); 

circle  =  defineConf ig(  0.0,  -0.5*size,  0.0,  0.8/size); 

setRobotConfiglimn(init) ; 

track (line) ; 

track (circle) ; 

tracks (line) ; 

return; 


void 

user30(void) 

-C 


CONFIGURATION  init,  lineO; 
double  sigma; 

printf ("\nlnput  desired  smoothness  (cm):  ") ; 
sigma  =  GetRealO; 

setSigmalmm(sigma) ; 

init  =  def ineConf ig(0.0,  0.0,  0.0,  0.0); 
lineO  =  defineConfig(200.0,  200.0,  HPI,  0.0); 
setRobotConf iglmm(init) ; 
track (init) ; 
tracks (lineO) ; 
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return ; 

} 


Function  :  userlOOO 

Purpose  :  Displaying  the  distance  obtained  by  the  specified  sonar 
Parameters :  void 
Returns  :  void 
Comments  : 

void  userlOOO 
-[ 

int  i,  sonar; 
double  distcuice; 

while (1) 

{ 

printf ("\nlnput  sonar  number  "); 
sonar  =  GetIntO; 

EnableSonar (sonar) ; 
for  (i=0;  i  <300;  i++) 

{ 

distance  =  Sonar (sonar) ; 

printf  ("\nsonar  */.d  distance=  ‘/.f",  sonar,  distetnce) ; 
waitMS(200); 

} 

DisableSonar (sonar) ; 

} 
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APPENDIX  J.  IMPLEMENTATION  DETAILS 
OF  THE  WAVELET  RECOGNITION  SYSTEM 
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The  system  code  is  split  into  four  components:  Training  Data  Processing, 
Neural  Network  Training  Program,  Template  Scanning  Program  and  Neural  Network 
Processing  Program. 

The  filename  for  the  x-th  sample  of  Object  y’s  z-th  Aspect  at  angle  w°  will 
be:  OyAzSxAw. 

a.  The  Training  Data  Processing  Program 

The  ’’Training  Data  Processing”  component  was  implemented  in  C  using  the 
Matrox  Imaging  Library  (MIL)  library.  It  performs  the  process  of  reading  in  images 
representing  a  single  aspect  view  of  an  object  in  the  training  database.  The  filenames 
of  all  of  the  training  data  is  stored  in  a  text  file  and  is  the  input  to  this  program.  The 
output  will  be  a  list  of  feature  vectors  corresponding  to  the  interest  points  detected 
from  analyzing  this  training  data  and  it  will  be  stored  in  a  lisp  format  in  a  file  called 
traininglS.lisp. 

1.  Read  in  each  training  data  file. 

2.  A  program  is  run  first  to  produce  the  rotated  images  at  the  size  of  512  x  512. 

3.  Transform  each  aspect  &  angle  image  into  the  wavelet  domain. 

4.  At  level  3  in  the  wavelet  domain,  detect  10  maximum  interest  points  and  a 
extract  feature  vector  at  each  point.  This  information  is  stored  in  the  output 
data  file  called  traininglS.lisp.  Note  that  after  each  set  of  10  feature  vectors  is 
the  identity  of  the  Object,  Aspect  and  Angle  classification  information  that  is 
needed  for  training. 

Bellow,  a  line  of  the  file  traininglS.lisp  is  shown,  containing  50  numbers  corre¬ 
sponding  to  10  “interest  points”  and  their  corresponding  feature  vectors. 

(defun  train  ()  (main  ’ ( 

; ;Highest_10,  level  3,  angle  0,  figure  oclaOsO 
(-17.3000000000000010  -0.6000000000000014  7.7632945599100394 
2 . 74377727895342 14  4 . 8747857976737450  - 13 . 3000000000000010 
-0.6000000000000014  2.5363105602360059  1.2928668687180431 
1.0453621792006709  -9.3000000000000007  2.3999999999999986 
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5.2280813107026365  2.0669463280241538  3.4806936563737985 
-3.3000000000000007  0.3999999999999986  2.2464198449293558 
0.9445203636985574  0.4874465769380103  -0.3000000000000007 
-1.6000000000000014  4.0285701151032116  1.3352789363678150 
1.5187340233943245  -0.3000000000000007  1.3999999999999986 
5.7299473651630040  2.2450398225978780  2.2525097190972367 
4.6999999999999993  -1.6000000000000014  4.5659324623233797 
1.6921700892013563  3.0386321169197239  8.6999999999999993 
-0.6000000000000014  2.7725534538730385  1.2018148095196759 
0.6511144002147382  12.6999999999999990  -0.6000000000000014 
10.0000000000000000  3.8939970723089417  13.9707736082173390 
17.6999999999999990  1.3999999999999986  4.4644618455921687 
1.4596795254323072  1.5890083670703876  )  (... 

b.  The  Neural  Network  Training  Program 

The  Neural  Network  Training  Program  as  well  as  the  Scanning  Program  are 
implemented  in  Allegro  Common  Lisp  4.2  on  an  SGI  machine.  It  takes  as  input  the 
output  file  generated  by  the  Training  Data  Processing  Program.  This  data  lists  sets 
of  feature  vectors  and  their  corresponding  Object,  Aspect  and  Angle  classification. 
The  output  of  the  Program  is  the  set  of  NN  weights  learned. 

c.  The  Template  Scanning  Program 

This  program  is  implemented  in  C  using  the  MIL  library  on  a  PC.  The  input 
to  this  program  is  a  512  x  512  image  of  the  scene  under  consideration.  This  program 
converts  the  image  to  the  wavelet  domain  and  at  level  3,  performs  template  scanning. 
At  each  template,  the  top  ten  interest  points  are  detected  and  a  feature  vector  for 
each  is  calculated.  The  ten  feature  vectors  for  each  template  is  stored  in  a  file  called 
oyazsxlS.lisp  which  is  used  as  input  to  the  next  stage  of  recognition,  the  Neural 
Network  Processor.  Note  that  the  sets  of  feature  vectors  for  each  template  of  the 
scene  image  is  stored  in  this  file.  They  are  store  in  the  same  format  shown  for 
traininglS.lisp. 
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d.  The  Neural  Network  Processing  Program 

The  feature  vectors  belonging  to  each  template  are  processed  in  succession. 
In  the  multiple  NN  case,  output  from  each  network  is  then  passed  to  another  lisp 
routine,  that  implements  the  voting  procedure.  The  output  from  each  template  is 
collected  into  a  single  output  file  called  recon.txt.  Below  is  an  example  output  file. 
Note  that  the  Location  is  detected  as  the  center  of  the  template  and  that  the  Error 
provided  by  the  NN  is  an  inverse  measure  of  confidence  in  the  detection  of  this  object. 

The  example  below  shows  a  typical  output  of  the  recognition  lisp  program. 
The  first  line  explains  the  output  as  follows. 

•  Ai  is  the  number  of  consecutive  windows  with  equal  or  close  errors  (within 
10-8). 

•  Ei  is  the  error. 

•  Level  is  the  level  of  the  wavelet  decomposition. 

•  Column  is  the  horizontal  coordinate  of  the  upper-left  corner  of  the  window 
found. 

•  Row  is  the  vertical  coordinate  of  the  upper-left  corner  of  the  window  found. 

•  Width  is  the  horizontal  dimension  of  the  window. 

•  Height  is  the  vertical  dimension  of  the  window. 

•  Classification  is  the  class  of  the  object  according  with  previous  convention. 


Ai  Ei 


level  column  row  width  height  classification 


((1  9.398273e-4  (level 
(2  0.00662132  (level 
(3  0.019059485  (level 
(4  0.05333662  (level 
(5  8.102191e-4  (level 
(6  8.102191e-4  (level 
(7) 

(8  0.05333662  (level  : 


3  i_col  10  i_row  8 

3  i_col  4  i_row  6 

3  i_col  6  i_row  6 

3  i_col  26  i_row  28 

3  i_col  4  i_row  0 

3  i_col  0  i_row  26 

1  i_col  24  i_row  28 


h_size  36  v_size  28) 
h_size  34  v_size  27) 
h_size  36  v_size  28) 
h_size  38  v_size  16) 
h_size  45  v_size  36) 
h_size  64  v_size  16) 

h_size  38  v_size  16) 


oclaOsOaO) 

oclaOsOaO) 

oc3a0s0a0) 

oc3a0s0a0) 

oclaOsOaO) 

oclaOsOaO) 

oc3a0s0a0) ) 
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